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

This commit is contained in:
Glenn Morris 2014-04-01 23:53:10 -07:00
parent 6116a72722
commit c7510f6e94
2 changed files with 6 additions and 1 deletions

View file

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

View file

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