diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-08-08 16:05:14 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-08-08 16:05:14 +0000 |
| commit | 939a77610645115e16e8677aeaf35c50dd06b14f (patch) | |
| tree | 2f79aa245edf69c9c68f4829b9d607c6752a54b5 /lisp/novice.el | |
| parent | 27e8464dae1a2d7f12fd7b0bc1c98d8313175228 (diff) | |
| download | emacs-939a77610645115e16e8677aeaf35c50dd06b14f.tar.gz | |
(disabled-command-function): New variable renamed from
`disabled-command-hook'.
(disabled-command-hook): Keep the _variable_ as alias for
`disabled-command-function' and make obsolete.
(disabled-command-function): Function renamed from
`disabled-command-hook'. Adapt code to namechange of the variable.
Diffstat (limited to 'lisp/novice.el')
| -rw-r--r-- | lisp/novice.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/novice.el b/lisp/novice.el index 1cb89066481..ca9a06769d5 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -1,6 +1,7 @@ ;;; novice.el --- handling of disabled commands ("novice mode") for Emacs -;; Copyright (C) 1985, 1986, 1987, 1994, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1994, 2002, 2004 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal, help @@ -36,12 +37,17 @@ ;; and the keys are returned by (this-command-keys). ;;;###autoload -(defvar disabled-command-hook 'disabled-command-hook +(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.") +(defvaralias 'disabled-command-hook 'disabled-command-function) +(make-obsolete-variable + 'disabled-command-hook + "use the variable `disabled-command-function' instead." "21.4") + ;;;###autoload -(defun disabled-command-hook (&rest ignore) +(defun disabled-command-function (&rest ignore) (let (char) (save-window-excursion (with-output-to-temp-buffer "*Help*" @@ -91,7 +97,7 @@ SPC to try the command just this once, but leave it disabled. (ding) (message "Please type y, n, ! or SPC (the space bar): ")))) (if (= char ?!) - (setq disabled-command-hook nil)) + (setq disabled-command-function nil)) (if (= char ?y) (if (and user-init-file (not (string= "" user-init-file)) |