-;; Copyright (C) 1985-1987, 1994, 2001-2012 Free Software Foundation, Inc.
+;; Copyright (C) 1985-1987, 1994, 2001-2014 Free Software Foundation,
+;; Inc.
;;;###autoload
(defvar disabled-command-function 'disabled-command-function
"Function to call to handle disabled commands.
If nil, the feature is disabled, i.e., all commands work normally.")
;;;###autoload
(defvar disabled-command-function 'disabled-command-function
"Function to call to handle disabled commands.
If nil, the feature is disabled, i.e., all commands work normally.")
(ding)
(message "Please type y, n, ! or SPC (the space bar): "))))
(setq char (downcase char))
(ding)
(message "Please type y, n, ! or SPC (the space bar): "))))
(setq char (downcase char))
(defun disable-command (command)
"Require special confirmation to execute COMMAND from now on.
COMMAND must be a symbol.
(defun disable-command (command)
"Require special confirmation to execute COMMAND from now on.
COMMAND must be a symbol.