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

2 files changed, 3 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b58fe1125f..b146a1d4d9e 100644
--- 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 b667d39ea17..bc97b07ddc3 100644
--- 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))))