Mercurial > hg > xemacs-beta

diff lisp/subr.el @ 4462:34b42224a066

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make the #'add-to-list implementation a little conciser and clearer for XEmacs 2008-05-14 Aidan Kehoe <kehoea@parhasard.net> * subr.el (add-to-list): Implement the same logic with a more concise syntax; thank you Stephen, in http://mid.gmane.org/87ablomdwx.fsf@uwakimon.sk.tsukuba.ac.jp .
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 14 May 2008 23:55:13 +0200
parents 42fad34efb3f
children 5c651a4e8ed3
line wrap: on
line diff
--- a/lisp/subr.el	Wed May 14 23:47:58 2008 +0200
+++ b/lisp/subr.el	Wed May 14 23:55:13 2008 +0200
@@ -402,9 +402,8 @@
 into a hook function that will be run only after loading the package.
 `eval-after-load' provides one way to do this.  In some cases
 other hooks, such as major mode hooks, can do the job."
-  (if (if (not compare-fn)
-         (member element (symbol-value list-var))
-       (member* element (symbol-value list-var) :test compare-fn))
+  (if (member* (member* element (symbol-value list-var)
+                        :test (or compare-fn #'equal)))
       (symbol-value list-var)
     (set list-var
          (if append