diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:35:04 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 17:35:04 +1100 |
| commit | 9bcefcf0b0bcb860f432299c8e6cf109d07ee8ef (patch) | |
| tree | 0ec569c07a427460a95f86bcc9e9a9578ec42baa /lisp/gnus/gnus-util.el | |
| parent | f466bf32d943a41abb964d839ddf8a27c380920e (diff) | |
| download | emacs-9bcefcf0b0bcb860f432299c8e6cf109d07ee8ef.tar.gz | |
Remove the gnus-merge alias
* lisp/gnus/gnus-util.el (gnus-merge): Remove.
Diffstat (limited to 'lisp/gnus/gnus-util.el')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index eadf04dfe71..23c6cd92cfb 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -1609,21 +1609,6 @@ sequence, this is like `mapcar'. With several, it is like the Common Lisp (cdr ,result))) `(mapcar ,function ,seq1))) -(if (fboundp 'merge) - (defalias 'gnus-merge 'merge) - ;; Adapted from cl-seq.el - (defun gnus-merge (type list1 list2 pred) - "Destructively merge lists LIST1 and LIST2 to produce a new list. -Argument TYPE is for compatibility and ignored. -Ordering of the elements is preserved according to PRED, a `less-than' -predicate on the elements." - (let ((res nil)) - (while (and list1 list2) - (if (funcall pred (car list2) (car list1)) - (push (pop list2) res) - (push (pop list1) res))) - (nconc (nreverse res) list1 list2)))) - (defun gnus-emacs-version () "Stringified Emacs version." (let* ((lst (if (listp gnus-user-agent) |