diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/printing.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |