diff options
| author | Richard M. Stallman <[email protected]> | 2005-05-30 06:50:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2005-05-30 06:50:35 +0000 |
| commit | ff4ed9e5e2105a06b3c3fb03531921f20c8d9de0 (patch) | |
| tree | 6c21243e1d4be150c1e0ca06d8e4bebf6530d373 | |
| parent | ced6cb71123f2bbadeceb9a8737b4dc844834564 (diff) | |
(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 b70c55b3f9..ddfe6fd5cc 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))) |