mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-01 10:41:57 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 2005-05-30 06:50:35 +00:00
parent ced6cb7112
commit ff4ed9e5e2
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/printing.el
View file

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