Mercurial > hg > xemacs-beta

diff lisp/subr.el @ 4463:5c651a4e8ed3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix add-to-list.
author Stephen J. Turnbull <stephen@xemacs.org>
date Wed, 14 May 2008 21:54:54 -0700
parents 34b42224a066
children c4fd85dd95bd
line wrap: on
line diff
--- a/lisp/subr.el	Wed May 14 23:55:13 2008 +0200
+++ b/lisp/subr.el	Wed May 14 21:54:54 2008 -0700
@@ -402,8 +402,7 @@
 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 (member* (member* element (symbol-value list-var)
-                        :test (or compare-fn #'equal)))
+  (if (member* element (symbol-value list-var) :test (or compare-fn #'equal))
       (symbol-value list-var)
     (set list-var
          (if append