[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/novice.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/novice.el |
Date: |
Wed, 20 Mar 2002 18:07:51 -0500 |
Index: emacs/lisp/novice.el
diff -c emacs/lisp/novice.el:1.30 emacs/lisp/novice.el:1.31
*** emacs/lisp/novice.el:1.30 Sun Feb 3 05:30:54 2002
--- emacs/lisp/novice.el Wed Mar 20 18:07:44 2002
***************
*** 1,6 ****
;;; novice.el --- handling of disabled commands ("novice mode") for Emacs
! ;; Copyright (C) 1985, 1986, 1987, 1994 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: internal, help
--- 1,6 ----
;;; novice.el --- handling of disabled commands ("novice mode") for Emacs
! ;; Copyright (C) 1985, 1986, 1987, 1994, 2002 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: internal, help
***************
*** 77,95 ****
(indent-rigidly start (point) 3))))
(princ "\n\nDo you want to use this command anyway?\n\n")
(princ "You can now type
! Y to try it and enable it (no questions if you use it again).
! N to cancel--don't try the command, and it remains disabled.
SPC to try the command just this once, but leave it disabled.
! to try it, and enable all disabled commands for this session only.")
(save-excursion
(set-buffer standard-output)
(help-mode)))
! (message "Type y, n, ! or Space: ")
(let ((cursor-in-echo-area t))
(while (not (memq (setq char (downcase (read-char)))
'(?! ? ?y ?n)))
(ding)
! (message "Please type y, n, ! or Space: "))))
(if (= char ?!)
(setq disabled-command-hook nil))
(if (= char ?y)
--- 77,95 ----
(indent-rigidly start (point) 3))))
(princ "\n\nDo you want to use this command anyway?\n\n")
(princ "You can now type
! y to try it and enable it (no questions if you use it again).
! n to cancel--don't try the command, and it remains disabled.
SPC to try the command just this once, but leave it disabled.
! to try it, and enable all disabled commands for this session only.")
(save-excursion
(set-buffer standard-output)
(help-mode)))
! (message "Type y, n, ! or SPC (the space bar): ")
(let ((cursor-in-echo-area t))
(while (not (memq (setq char (downcase (read-char)))
'(?! ? ?y ?n)))
(ding)
! (message "Please type y, n, ! or SPC (the space bar): "))))
(if (= char ?!)
(setq disabled-command-hook nil))
(if (= char ?y)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/novice.el,
Pavel Janík <=