Mercurial > emacs
comparison lisp/novice.el @ 72718:240ffd11cdc0
Comment change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Sep 2006 11:59:00 +0000 |
| parents | 3bd95f4f2941 |
| children | 9f4b4800edc6 a1a25ac6c88a |
comparison
equal
deleted
inserted
replaced
| 72717:3c10728bc064 | 72718:240ffd11cdc0 |
|---|---|
| 42 If nil, the feature is disabled, i.e., all commands work normally.") | 42 If nil, the feature is disabled, i.e., all commands work normally.") |
| 43 | 43 |
| 44 ;;;###autoload | 44 ;;;###autoload |
| 45 (define-obsolete-variable-alias 'disabled-command-hook 'disabled-command-function "22.1") | 45 (define-obsolete-variable-alias 'disabled-command-hook 'disabled-command-function "22.1") |
| 46 | 46 |
| 47 ;; It is ok here to assume that this-command is a symbol | |
| 48 ;; because we won't get called otherwise. | |
| 47 ;;;###autoload | 49 ;;;###autoload |
| 48 (defun disabled-command-function (&rest ignore) | 50 (defun disabled-command-function (&rest ignore) |
| 49 (let (char) | 51 (let (char) |
| 50 (save-window-excursion | 52 (save-window-excursion |
| 51 (with-output-to-temp-buffer "*Disabled Command*" | 53 (with-output-to-temp-buffer "*Disabled Command*" |