(define-minor-mode): Purecopy :lighter.
This commit is contained in:
parent
ff917d6321
commit
8b908da69e
2 changed files with 3 additions and 1 deletions
|
@ -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))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue