mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(disabled-command-hook): Use `defvar' and add documentation string.

Browse source 
(disabled-command-hook): New option ! turns off disabled commands.
This commit is contained in:
Erik Naggum 1996-12-09 04:21:11 +00:00
parent c9ac7fca83
commit 4442951c8f
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/novice.el
View file

@ -36,7 +36,9 @@
;; and the keys are returned by (this-command-keys).
;;;###autoload
(setq disabled-command-hook 'disabled-command-hook)
(defvar disabled-command-hook 'disabled-command-hook
"Function to call to handle disabled commands.
If nil, the feature is disabled, i.e., all commands work normally.")
;;;###autoload
(defun disabled-command-hook (&rest ignore)
@ -73,19 +75,21 @@
(goto-char (point-max))))
(princ "\n\n")
(princ "You can now type
Space to try the command just this once,
but leave it disabled,
Space to try the command just this once, but leave it disabled,
Y to try it and enable it (no questions if you use it again),
! to try it and enable all commands in this session, or
N to do nothing (command remains disabled).")
(save-excursion
(set-buffer standard-output)
(help-mode)))
(message "Type y, n or Space: ")
(message "Type y, n, ! or Space: ")
(let ((cursor-in-echo-area t))
(while (not (memq (setq char (downcase (read-char)))
'(? ?y ?n)))
'(?! ? ?y ?n)))
(ding)
(message "Please type y, n or Space: "))))
(message "Please type y, n, ! or Space: "))))
(if (= char ?!)
(setq disabled-command-hook nil))
(if (= char ?y)
(if (and user-init-file
(not (string= "" user-init-file))