44 |
(defvaralias 'disabled-command-hook 'disabled-command-function) |
(defvaralias 'disabled-command-hook 'disabled-command-function) |
45 |
(make-obsolete-variable |
(make-obsolete-variable |
46 |
'disabled-command-hook |
'disabled-command-hook |
47 |
"use the variable `disabled-command-function' instead." "21.4") |
'disabled-command-function "21.4") |
48 |
|
|
49 |
;;;###autoload |
;;;###autoload |
50 |
(defun disabled-command-function (&rest ignore) |
(defun disabled-command-function (&rest ignore) |
93 |
(message "Type y, n, ! or SPC (the space bar): ") |
(message "Type y, n, ! or SPC (the space bar): ") |
94 |
(let ((cursor-in-echo-area t)) |
(let ((cursor-in-echo-area t)) |
95 |
(while (not (memq (setq char (downcase (read-char))) |
(while (not (memq (setq char (downcase (read-char))) |
96 |
'(?! ? ?y ?n))) |
'(?! ?y ?n ?\ ))) |
97 |
(ding) |
(ding) |
98 |
(message "Please type y, n, ! or SPC (the space bar): ")))) |
(message "Please type y, n, ! or SPC (the space bar): ")))) |
99 |
(if (= char ?!) |
(if (= char ?!) |
185 |
|
|
186 |
(provide 'novice) |
(provide 'novice) |
187 |
|
|
188 |
;;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9 |
;; arch-tag: f83c0f96-497e-4db6-a430-8703716c6dd9 |
189 |
;;; novice.el ends here |
;;; novice.el ends here |