From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Wed, 11 Nov 2009 06:17:07 +0000 (+0000)
Subject: (define-minor-mode): Purecopy :lighter.
X-Git-Tag: emacs-pretest-23.1.90~492
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8b908da69e0eaab847c6982d939e23caa606a27d;p=emacs.git

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

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))))