Re: /srv/bzr/emacs/emacs-24 r111116: eval-after-load fix

[Dmitry Gutov <dgutov@yandex.ru>]

I wonder, wouldn't it still make sense to purecopy the form, just not
the list wrapping it?

Glenn Morris <rgm@gnu.org> writes:
> ------------------------------------------------------------
> revno: 111116
> fixes bug: http://debbugs.gnu.org/13331
> committer: Glenn Morris <rgm@gnu.org>
> branch nick: emacs-24
> timestamp: Wed 2013-01-02 16:50:35 -0800
> message:
>   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.
> modified:
>   lisp/ChangeLog
>   lisp/subr.el
> === modified file 'lisp/ChangeLog'
> --- a/lisp/ChangeLog	2013-01-03 00:43:46 +0000
> +++ b/lisp/ChangeLog	2013-01-03 00:50:35 +0000
> @@ -1,5 +1,8 @@
>  2013-01-03  Glenn Morris  <rgm@gnu.org>
>  
> +	* 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)
>  
>
> === modified file 'lisp/subr.el'
> --- a/lisp/subr.el	2013-01-01 09:11:05 +0000
> +++ b/lisp/subr.el	2013-01-03 00:50:35 +0000
> @@ -1877,7 +1877,7 @@
>  		 ,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.