procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Small define-minor-mode fix for variable: keyword.

Browse source 
* lisp/emacs-lisp/easy-mmode.el (define-minor-mode):
Allow named functions to be used as the cdr of variable:.
This commit is contained in:
Glenn Morris 2012-01-30 20:35:57 -08:00
parent e4070def53
commit 6c9b47ae84
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/easy-mmode.el
View file

@ -160,7 +160,7 @@ For example, you could write
(hook (intern (concat mode-name "-hook")))
(hook-on (intern (concat mode-name "-on-hook")))
(hook-off (intern (concat mode-name "-off-hook")))
keyw keymap-sym)
keyw keymap-sym tmp)
;; Check keys.
(while (keywordp (setq keyw (car body)))
@ -177,7 +177,15 @@ For example, you could write
(:require (setq require (pop body)))
(:keymap (setq keymap (pop body)))
(:variable (setq variable (pop body))
(if (not (functionp (cdr-safe variable)))
(setq tmp (cdr-safe variable))
(if (not (or (functionp tmp)
(and tmp
(symbolp tmp)
;; Hack to allow for named functions not within
;; eval-when-compile.
;; Cf define-compilation-mode.
(boundp 'byte-compile-function-environment)
(assq tmp byte-compile-function-environment))))
;; PLACE is not of the form (GET . SET).
(setq mode variable)
(setq mode (car variable))