diff options
| author | Richard M. Stallman | 2005-05-30 06:50:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-05-30 06:50:35 +0000 |
| commit | ff4ed9e5e2105a06b3c3fb03531921f20c8d9de0 (patch) | |
| tree | 6c21243e1d4be150c1e0ca06d8e4bebf6530d373 | |
| parent | ced6cb71123f2bbadeceb9a8737b4dc844834564 (diff) | |
| download | emacs-ff4ed9e5e2105a06b3c3fb03531921f20c8d9de0.tar.gz emacs-ff4ed9e5e2105a06b3c3fb03531921f20c8d9de0.zip | |
(pr-interactive-n-up): Use string-to-number.
| -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." | |||
| 5466 | (str (pr-f-read-string (format fmt-prompt prompt mess) "1" nil "1")) | 5466 | (str (pr-f-read-string (format fmt-prompt prompt mess) "1" nil "1")) |
| 5467 | int) | 5467 | int) |
| 5468 | (while (if (string-match "^\\s *[0-9]+$" str) | 5468 | (while (if (string-match "^\\s *[0-9]+$" str) |
| 5469 | (setq int (string-to-int str) | 5469 | (setq int (string-to-number str) |
| 5470 | prompt (cond ((< int 1) "Integer below 1; ") | 5470 | prompt (cond ((< int 1) "Integer below 1; ") |
| 5471 | ((> int 100) "Integer above 100; ") | 5471 | ((> int 100) "Integer above 100; ") |
| 5472 | (t nil))) | 5472 | (t nil))) |