Tweak previous define-minor-mode change

* lisp/emacs-lisp/easy-mmode.el (define-minor-mode):
Relax :variable's test for a named function.

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))