Mercurial > hg > xemacs-beta
diff lisp/prim/novice.el @ 72:b9518feda344 r20-0b31
Import from CVS: tag r20-0b31
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:03:46 +0200 |
parents | 131b0175ea99 |
children | 0132846995bd |
line wrap: on
line diff
--- a/lisp/prim/novice.el Mon Aug 13 09:03:07 2007 +0200 +++ b/lisp/prim/novice.el Mon Aug 13 09:03:46 2007 +0200 @@ -19,11 +19,11 @@ ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. -;;; Synched up with: FSF 19.30. +;;; Synched up with: FSF 19.34. ;;; Commentary: @@ -79,6 +79,12 @@ (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: ")))) + ;; XEmacs version (let ((cursor-in-echo-area t) (inhibit-quit t) event) @@ -110,7 +116,7 @@ (not (string= "" user-init-file)) (y-or-n-p "Enable command for future editing sessions also? ")) (enable-command this-command) - (put this-command 'disabled nil))) + (put this-command 'disabled nil))) (if (/= char ?n) (call-interactively this-command))))