From ff4ed9e5e2105a06b3c3fb03531921f20c8d9de0 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 30 May 2005 06:50:35 +0000
Subject: [PATCH] (pr-interactive-n-up): Use string-to-number.

---
 lisp/printing.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
2.39.5