[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/easy-mmode.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/11 06:17:10

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: easy-mmode.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16597&r2=1.16598
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/easy-mmode.el?cvsroot=emacs&r1=1.98&r2=1.99

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16597
retrieving revision 1.16598
diff -u -b -r1.16597 -r1.16598
--- ChangeLog   11 Nov 2009 06:16:16 -0000      1.16597
+++ ChangeLog   11 Nov 2009 06:17:07 -0000      1.16598
@@ -1,5 +1,7 @@
 2009-11-11  Dan Nicolaescu  <address@hidden>
 
+       * 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.
 

Index: emacs-lisp/easy-mmode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/easy-mmode.el,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -b -r1.98 -r1.99
--- emacs-lisp/easy-mmode.el    2 Oct 2009 03:48:43 -0000       1.98
+++ emacs-lisp/easy-mmode.el    11 Nov 2009 06:17:10 -0000      1.99
@@ -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))))