diff options
author | Glenn Morris <[email protected]> | 2013-01-02 16:50:35 -0800 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2013-01-02 16:50:35 -0800 |
commit | ed5bdeb9687d7942f9b1ec8fefe906f004c50055 (patch) | |
tree | deab13fd0ae3bc20cc9eb5e684b972d83d6cfefc /lisp | |
parent | ad235a8b88e353d6e51dafc62d020d8ff647857f (diff) |
eval-after-load fix
* lisp/subr.el (eval-after-load): Don't purecopy the form, so that it
can be nconc'd later on; reverts 2009-11-11 change.
Fixes: debbugs:13331
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/subr.el | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0b92be6391..04ba7f802c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-01-03 Glenn Morris <[email protected]> + * subr.el (eval-after-load): Don't purecopy the form, so that it + can be nconc'd later on; reverts 2009-11-11 change. (Bug#13331) + * emacs-lisp/byte-run.el (defun): Place cl declarations after any interactive spec. (Bug#13265) diff --git a/lisp/subr.el b/lisp/subr.el index ce7b74db4c..eef8c46c7d 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1877,7 +1877,7 @@ This function makes or adds to an entry on `after-load-alist'." ,form))) ;; Add FORM to the element unless it's already there. (unless (member form (cdr elt)) - (nconc elt (purecopy (list form))))))) + (nconc elt (list form)))))) (defvar after-load-functions nil "Special hook run after loading a file. |