diff options
author | Nicolas Richard <youngfrog@members.fsf.org> | 2016-02-23 14:38:30 +1100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-23 14:38:30 +1100 |
commit | 6620944f8325101d6a0e01690aea7901a66f0461 (patch) | |
tree | 4e73aac6318eba239a9d7f9a07f8101d264a819b /lisp/emacs-lisp/cl-seq.el | |
parent | 17dd3fb4a52e78c57308b795e41e8c9f50a9c5cc (diff) | |
download | emacs-6620944f8325101d6a0e01690aea7901a66f0461.tar.gz |
(cl-union): Do not ignore :test argument when lists are equal.
* cl-seq.el (cl-union): Do not ignore :test argument when lists are equal.
* test/automated/cl-seq-tests.el: New file (bug#22729).
Diffstat (limited to 'lisp/emacs-lisp/cl-seq.el')
-rw-r--r-- | lisp/emacs-lisp/cl-seq.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el index 61ee5698435..21aec6cdfcd 100644 --- a/lisp/emacs-lisp/cl-seq.el +++ b/lisp/emacs-lisp/cl-seq.el @@ -774,7 +774,7 @@ to avoid corrupting the original LIST1 and LIST2. \nKeywords supported: :test :test-not :key \n(fn LIST1 LIST2 [KEYWORD VALUE]...)" (cond ((null cl-list1) cl-list2) ((null cl-list2) cl-list1) - ((equal cl-list1 cl-list2) cl-list1) + ((and (not cl-keys) (equal cl-list1 cl-list2)) cl-list1) (t (or (>= (length cl-list1) (length cl-list2)) (setq cl-list1 (prog1 cl-list2 (setq cl-list2 cl-list1)))) |