Mercurial > emacs
changeset 62887:3d8c6d031cf0
(pr-interactive-n-up): Use string-to-number.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 30 May 2005 06:50:35 +0000 |
| parents | 67bdd7607648 |
| children | df1894ffb13c |
| files | lisp/printing.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/printing.el Mon May 30 06:49:59 2005 +0000 +++ b/lisp/printing.el Mon May 30 06:50:35 2005 +0000 @@ -5466,7 +5466,7 @@ (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)))