diff lisp/prim/novice.el @ 4:b82b59fe008d r19-15b3

Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/prim/novice.el	Mon Aug 13 08:46:35 2007 +0200
+++ b/lisp/prim/novice.el	Mon Aug 13 08:46:56 2007 +0200
@@ -20,9 +20,10 @@
 
 ;; 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, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; 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:
 
@@ -78,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)
@@ -109,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))))