Mercurial > emacs

comparison lisp/emacs-lisp/easy-mmode.el @ 105945:503b88c15efc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(define-minor-mode): Purecopy :lighter.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 11 Nov 2009 06:17:07 +0000
parents bd2966850aac
children fecbb2b5a355
comparison
equal deleted inserted replaced
105944:a465c7c7e59e 105945:503b88c15efc
156 ;; Check keys. 156 ;; Check keys.
157 (while (keywordp (setq keyw (car body))) 157 (while (keywordp (setq keyw (car body)))
158 (setq body (cdr body)) 158 (setq body (cdr body))
159 (case keyw 159 (case keyw
160 (:init-value (setq init-value (pop body))) 160 (:init-value (setq init-value (pop body)))
161 (:lighter (setq lighter (pop body))) 161 (:lighter (setq lighter (purecopy (pop body))))
162 (:global (setq globalp (pop body))) 162 (:global (setq globalp (pop body)))
163 (:extra-args (setq extra-args (pop body))) 163 (:extra-args (setq extra-args (pop body)))
164 (:set (setq set (list :set (pop body)))) 164 (:set (setq set (list :set (pop body))))
165 (:initialize (setq initialize (list :initialize (pop body)))) 165 (:initialize (setq initialize (list :initialize (pop body))))
166 (:group (setq group (nconc group (list :group (pop body))))) 166 (:group (setq group (nconc group (list :group (pop body)))))