From e5271cf20c08ba88e5c91a9626c08022f9a5058c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 24 Apr 2013 10:31:43 -0700 Subject: [PATCH] * subr.el (read-number): Once more use `read' rather than `string-to-number', to trap non-numeric input. Fixes: debbugs:14254 --- lisp/ChangeLog | 5 +++++ lisp/subr.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b1baa9d9e64..2e0645e5156 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-04-24 Glenn Morris + + * subr.el (read-number): Once more use `read' rather than + `string-to-number', to trap non-numeric input. (Bug#14254) + 2013-04-22 Erik Charlebois * emacs-lisp/syntax.el (syntax-propertize-multiline): diff --git a/lisp/subr.el b/lisp/subr.el index eef8c46c7d6..88f27c75764 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2229,7 +2229,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.") -- 2.39.2