From ed5bdeb9687d7942f9b1ec8fefe906f004c50055 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 2 Jan 2013 16:50:35 -0800 Subject: [PATCH] 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 --- lisp/ChangeLog | 3 +++ lisp/subr.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0b92be63916..04ba7f802ca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-01-03 Glenn Morris + * 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 ce7b74db4ce..eef8c46c7d6 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. -- 2.39.5