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

diff --git a/lisp/printing.el b/lisp/printing.el
index b70c55b3f98b7961d7ebc211482fe8acf680032c..ddfe6fd5cc0da09a8399cf4b9fe0dc5e1b96f040 100644 (file)
--- 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)))