From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Apr 2007 16:56:19 +0000 (+0000)
Subject: (read-number): Catch errors.
X-Git-Tag: emacs-pretest-22.0.99~63
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=219f06f7b847f4a905d670ad067c4eb6b953aae3;p=emacs.git

(read-number): Catch errors.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index fac2398a795..a05c1d15780 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1735,9 +1735,11 @@ The value of DEFAULT is inserted into PROMPT."
 	  (let ((str (read-from-minibuffer prompt nil nil nil nil
 					   (and default
 						(number-to-string default)))))
-	    (setq n (cond
-		     ((zerop (length str)) default)
-		     ((stringp str) (read str)))))
+	    (condition-case nil
+		(setq n (cond
+			 ((zerop (length str)) default)
+			 ((stringp str) (read str))))
+	      (error nil)))
 	  (unless (numberp n)
 	    (message "Please enter a number.")
 	    (sit-for 1)