carbon2-commit: Fix add-to-list.

changeset: 4489:5c651a4e8ed359668781cdd92c41c3f46c065ebb user: Stephen J. Turnbull <stephen(a)xemacs.org&gt; 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＠parhasa +2008-05-14 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * subr.el (add-to-list): Fix Aidan's last commit. + 2008-05-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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 _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches