Merge from trunk.

1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index dc968542cd0..802fee4ee65 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2200,11 +2200,11 @@ by doing (clear-string STRING)."
               ;; And of course, don't keep the sensitive data around.
               (erase-buffer))))))))
 
-;; This should be used by `call-interactively' for `n' specs.
 (defun read-number (prompt &optional default)
   "Read a numeric value in the minibuffer, prompting with PROMPT.
 DEFAULT specifies a default value to return if the user just types RET.
-The value of DEFAULT is inserted into PROMPT."
+The value of DEFAULT is inserted into PROMPT.
+This function is used by the `interactive' code letter `n'."
   (let ((n nil)
         (default1 (if (consp default) (car default) default)))
     (when default1
@@ -2225,7 +2225,7 @@ The value of DEFAULT is inserted into PROMPT."
             (condition-case nil
                 (setq n (cond
                          ((zerop (length str)) default1)
-                         ((stringp str) (string-to-number str))))
+                         ((stringp str) (read str))))
               (error nil)))
           (unless (numberp n)
             (message "Please enter a number.")