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))))