Mercurial > emacs
changeset 105945:503b88c15efc
(define-minor-mode): Purecopy :lighter.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 11 Nov 2009 06:17:07 +0000 |
| parents | a465c7c7e59e |
| children | 8b630212b554 |
| files | lisp/ChangeLog lisp/emacs-lisp/easy-mmode.el |
| diffstat | 2 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Nov 11 06:16:16 2009 +0000 +++ b/lisp/ChangeLog Wed Nov 11 06:17:07 2009 +0000 @@ -1,5 +1,7 @@ 2009-11-11 Dan Nicolaescu <dann@ics.uci.edu> + * emacs-lisp/easy-mmode.el (define-minor-mode): Purecopy :lighter. + * subr.el (add-hook): Purecopy strings. (eval-after-load): Purecopy load-history-regexp and the form.
--- a/lisp/emacs-lisp/easy-mmode.el Wed Nov 11 06:16:16 2009 +0000 +++ b/lisp/emacs-lisp/easy-mmode.el Wed Nov 11 06:17:07 2009 +0000 @@ -158,7 +158,7 @@ (setq body (cdr body)) (case keyw (:init-value (setq init-value (pop body))) - (:lighter (setq lighter (pop body))) + (:lighter (setq lighter (purecopy (pop body)))) (:global (setq globalp (pop body))) (:extra-args (setq extra-args (pop body))) (:set (setq set (list :set (pop body))))