diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:33:25 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:33:25 +1100 |
| commit | f466bf32d943a41abb964d839ddf8a27c380920e (patch) | |
| tree | 36ee0b7d59cbaa4f08c54787c82cfd6a0124978b /lisp/gnus/gnus-util.el | |
| parent | 6d4761330d7e2cf94ce8df07744c7b297bebb79e (diff) | |
| download | emacs-f466bf32d943a41abb964d839ddf8a27c380920e.tar.gz emacs-f466bf32d943a41abb964d839ddf8a27c380920e.tar.bz2 emacs-f466bf32d943a41abb964d839ddf8a27c380920e.zip | |
Remove the gnus-union alias
* lisp/gnus/gnus-util.el (gnus-union): Remove.
Diffstat (limited to 'lisp/gnus/gnus-util.el')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index ff980416a28..eadf04dfe71 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -1265,29 +1265,6 @@ If HASH-TABLE-P is non-nil, regards SEQUENCE as a hash table." (put 'gnus-with-output-to-file 'lisp-indent-function 1) (put 'gnus-with-output-to-file 'edebug-form-spec '(form body)) -(if (fboundp 'union) - (defalias 'gnus-union 'union) - (defun gnus-union (l1 l2 &rest keys) - "Set union of lists L1 and L2. -If KEYS contains the `:test' and `equal' pair, use `equal' to compare -items in lists, otherwise use `eq'." - (cond ((null l1) l2) - ((null l2) l1) - ((equal l1 l2) l1) - (t - (or (>= (length l1) (length l2)) - (setq l1 (prog1 l2 (setq l2 l1)))) - (if (eq 'equal (plist-get keys :test)) - (while l2 - (or (member (car l2) l1) - (push (car l2) l1)) - (pop l2)) - (while l2 - (or (memq (car l2) l1) - (push (car l2) l1)) - (pop l2))) - l1)))) - (declare-function gnus-add-text-properties "gnus" (start end properties &optional object)) |