# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1117435835 0
# Node ID 3d8c6d031cf08116d8681128c94f1de13ba499b3
# Parent  67bdd7607648ea14d37117e532853d12672b86cb
(pr-interactive-n-up): Use string-to-number.

diff -r 67bdd7607648 -r 3d8c6d031cf0 lisp/printing.el
--- 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)))