diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-04-26 00:34:54 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-04-26 00:34:54 -0700 |
| commit | af80458d7e9d2f81a8d13a0b4ad152743c34520c (patch) | |
| tree | e993b235e182a270be564b06e01596f9466c857c /lisp/subr.el | |
| parent | 9fc02c2f823942e302c5bc8938e9a6e4e03003f1 (diff) | |
| parent | e5271cf20c08ba88e5c91a9626c08022f9a5058c (diff) | |
| download | emacs-af80458d7e9d2f81a8d13a0b4ad152743c34520c.tar.gz emacs-af80458d7e9d2f81a8d13a0b4ad152743c34520c.tar.bz2 emacs-af80458d7e9d2f81a8d13a0b4ad152743c34520c.zip | |
Merge from emacs-24; up to 2012-12-27T08:21:08Z!rgm@gnu.org
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 7fe3d411580..523bec59b29 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -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.") |