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

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

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