changeset 62887:3d8c6d031cf0

(pr-interactive-n-up): Use string-to-number.
author Richard M. Stallman <rms@gnu.org>
date Mon, 30 May 2005 06:50:35 +0000
parents 67bdd7607648
children df1894ffb13c
files lisp/printing.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/printing.el	Mon May 30 06:49:59 2005 +0000
+++ b/lisp/printing.el	Mon May 30 06:50:35 2005 +0000
@@ -5466,7 +5466,7 @@
 	   (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)))