(define-minor-mode): Purecopy :lighter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b58fe1125f71b07bf5361f9ab14e766bb4a183a..b146a1d4d9e393321a6bdf0908f9a047144df018 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
 

diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index b667d39ea174b95787a150d14f5f4edde74718d2..bc97b07ddc3bb8a3756188bcc47b554ae3feef35 100644 (file)
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -158,7 +158,7 @@ For example, you could write
       (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))))