commit: Fix add-to-list.

[Stephen Turnbull]

changeset:   4463:5c651a4e8ed359668781cdd92c41c3f46c065ebb
tag:         tip
user:        Stephen J. Turnbull <stephen at xemacs.org>
date:        Wed May 14 21:54:54 2008 -0700
files:       lisp/ChangeLog lisp/subr.el
description:
Fix add-to-list.


diff -r 34b42224a06634307fb9ea44c0d3805e0f859b7d -r 5c651a4e8ed359668781cdd92c41c3f46c065ebb lisp/ChangeLog
--- a/lisp/ChangeLog	Wed May 14 23:55:13 2008 +0200
+++ b/lisp/ChangeLog	Wed May 14 21:54:54 2008 -0700
@@ -1,3 +1,7 @@ 2008-05-14  Aidan Kehoe  <kehoea at parhasa
+2008-05-14  Stephen J. Turnbull  <stephen at xemacs.org>
+
+	* subr.el (add-to-list): Fix Aidan's last commit.
+
 2008-05-14  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* subr.el (add-to-list): Implement the same logic with a more
diff -r 34b42224a06634307fb9ea44c0d3805e0f859b7d -r 5c651a4e8ed359668781cdd92c41c3f46c065ebb lisp/subr.el
--- 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 on
 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