* lisp/simple.el (command-execute): Respect nil disabled-command-function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d474f3f27f7f5d40df938c28fe0501ae8ccbb3d..0bfc080f8ec99b36b78653784b3f3c66d9b6fbc6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-04-02  Glenn Morris  <rgm@gnu.org>
+
+       * simple.el (command-execute): Respect nil disabled-command-function.
+
 2014-04-01  Nicolas Richard  <theonewiththeevillook@yahoo.fr>
 
        * simple.el (command-execute): Do not execute the command when it

diff --git a/lisp/simple.el b/lisp/simple.el
index 10a3a98973dcb797374cec6724af01e505925a48..68bfd7b14f4d62678c1241911ad45766088c2f82 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1629,7 +1629,8 @@ a special event, so ignore the prefix argument and don't clear it."
                        (setq current-prefix-arg prefix-arg)
                        (setq prefix-arg nil)))))
     (if (and (symbolp cmd)
-             (get cmd 'disabled))
+             (get cmd 'disabled)
+             disabled-command-function)
         ;; FIXME: Weird calling convention!
         (run-hooks 'disabled-command-function)
       (let ((final cmd))