Mercurial > emacs
changeset 105964:bedac8edf64d
(define-compiler-macro): Purecopy the file name.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 12 Nov 2009 06:48:03 +0000 |
| parents | db07e62f1123 |
| children | 3f64b8380468 |
| files | lisp/ChangeLog lisp/emacs-lisp/cl-macs.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Nov 12 02:09:33 2009 +0000 +++ b/lisp/ChangeLog Thu Nov 12 06:48:03 2009 +0000 @@ -1,3 +1,7 @@ +2009-11-12 Dan Nicolaescu <dann@ics.uci.edu> + + * emacs-lisp/cl-macs.el (define-compiler-macro): Purecopy the file name. + 2009-11-11 Dan Nicolaescu <dann@ics.uci.edu> * widget.el (define-widget): Purecopy the docstring.
--- a/lisp/emacs-lisp/cl-macs.el Thu Nov 12 02:09:33 2009 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Thu Nov 12 06:48:03 2009 +0000 @@ -2565,7 +2565,7 @@ (list 'if 'file (list 'put (list 'quote func) '(quote compiler-macro-file) - '(file-name-nondirectory file)))))))) + '(purecopy (file-name-nondirectory file))))))))) ;;;###autoload (defun compiler-macroexpand (form)