From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 30 May 2005 06:50:35 +0000 (+0000)
Subject: (pr-interactive-n-up): Use string-to-number.
X-Git-Tag: emacs-pretest-22.0.90~9422
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff4ed9e5e2105a06b3c3fb03531921f20c8d9de0;p=emacs.git

(pr-interactive-n-up): Use string-to-number.
---

diff --git a/lisp/printing.el b/lisp/printing.el
index b70c55b3f98..ddfe6fd5cc0 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -5466,7 +5466,7 @@ non-nil."
 	   (str (pr-f-read-string (format fmt-prompt prompt mess) "1" nil "1"))
 	   int)
       (while (if (string-match "^\\s *[0-9]+$" str)
-		 (setq int (string-to-int str)
+		 (setq int (string-to-number str)
 		       prompt (cond ((< int 1)   "Integer below 1; ")
 				    ((> int 100) "Integer above 100; ")
 				    (t           nil)))