]> git.eshelyaron.com Git - emacs.git/commitdiff
Tweak previous define-minor-mode change
authorGlenn Morris <rgm@gnu.org>
Wed, 1 Feb 2012 02:17:17 +0000 (21:17 -0500)
committerGlenn Morris <rgm@gnu.org>
Wed, 1 Feb 2012 02:17:17 +0000 (21:17 -0500)
* lisp/emacs-lisp/easy-mmode.el (define-minor-mode):
Relax :variable's test for a named function.

lisp/ChangeLog
lisp/emacs-lisp/easy-mmode.el

index 71f96cccfeb2607ee7748824ada086aaf2db4e6c..77dc97db5c7a7c5963a465570488900a7f6db5de 100644 (file)
@@ -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
index efd5ee45d9bcad19e68f55adb3aaae6bc188d0c7..d871f6f12127d45c1ba5d0589c76d8b7e91261f5 100644 (file)
@@ -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))