Commit 8b908da6 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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

parent ff917d63
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.
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment