diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-01-31 21:17:17 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-01-31 21:17:17 -0500 |
| commit | 781acb9f3a3a02af4d9abd30af8f2ec379453f9d (patch) | |
| tree | 23dcfefab97f4763d34a96aa944358623ae8b48a | |
| parent | 9e7056a545b339f0bc4931728d903f20aaff9885 (diff) | |
| download | emacs-781acb9f3a3a02af4d9abd30af8f2ec379453f9d.tar.gz | |
Tweak previous define-minor-mode change
* lisp/emacs-lisp/easy-mmode.el (define-minor-mode):
Relax :variable's test for a named function.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 12 |
2 files changed, 8 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 71f96cccfeb..77dc97db5c7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-02-01 Glenn Morris <rgm@gnu.org> + + * emacs-lisp/easy-mmode.el (define-minor-mode): + Relax :variable's test for a named function. + 2012-01-31 Alan Mackenzie <acm@muc.de> * progmodes/cc-engine.el (c-guess-basic-syntax): CASE 5B.1: Fix an diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index efd5ee45d9b..d871f6f1212 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -182,15 +182,9 @@ For example, you could write (:require (setq require (pop body))) (:keymap (setq keymap (pop body))) (:variable (setq variable (pop body)) - (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)))) + (if (not (and (setq tmp (cdr-safe variable)) + (or (symbolp tmp) + (functionp tmp)))) ;; PLACE is not of the form (GET . SET). (setq mode variable) (setq mode (car variable)) |