mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Dan Nicolaescu 2009-11-11 06:17:07 +00:00
parent ff917d6321
commit 8b908da69e
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -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.

2
lisp/emacs-lisp/easy-mmode.el
View File

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