[Emacs-diffs] Changes to emacs/lisp/printing.el

[Richard M . Stallman]

Index: emacs/lisp/printing.el
diff -c emacs/lisp/printing.el:1.26 emacs/lisp/printing.el:1.27
*** emacs/lisp/printing.el:1.26 Sun Nov 21 23:05:20 2004
--- emacs/lisp/printing.el      Mon May 30 06:50:35 2005
***************
*** 5466,5472 ****
           (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)
                       prompt (cond ((< int 1)   "Integer below 1; ")
                                    ((> int 100) "Integer above 100; ")
                                    (t           nil)))
--- 5466,5472 ----
           (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-number str)
                       prompt (cond ((< int 1)   "Integer below 1; ")
                                    ((> int 100) "Integer above 100; ")
                                    (t           nil)))