Commit 781acb9f authored by Glenn Morris's avatar Glenn Morris

Tweak previous define-minor-mode change

* lisp/emacs-lisp/easy-mmode.el (define-minor-mode):
Relax :variable's test for a named function.
parent 9e7056a5
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
......
......@@ -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))
......
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