# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1257920227 0
# Node ID 503b88c15efcdbd7b50db561ae0c332f1da8c792
# Parent  a465c7c7e59e67cbe0b5e6b320120afb111ef14b
(define-minor-mode): Purecopy :lighter.

diff -r a465c7c7e59e -r 503b88c15efc lisp/ChangeLog
--- 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.
 
diff -r a465c7c7e59e -r 503b88c15efc lisp/emacs-lisp/easy-mmode.el
--- 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))))