Merge from emacs-24; up to 2012-12-27T08:21:08Z!rgm@gnu.org
This commit is contained in:
commit
af80458d7e
3 changed files with 13 additions and 2 deletions
|
@ -1,3 +1,14 @@
|
|||
2013-04-26 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* subr.el (read-number): Once more use `read' rather than
|
||||
`string-to-number', to trap non-numeric input. (Bug#14254)
|
||||
|
||||
2013-04-26 Erik Charlebois <erikcharlebois@gmail.com>
|
||||
|
||||
* emacs-lisp/syntax.el (syntax-propertize-multiline):
|
||||
Use `syntax-multiline' text property consistently instead of
|
||||
`font-lock-multiline'. (bug#14237).
|
||||
|
||||
2013-04-26 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* emacs-lisp/shadow.el (list-load-path-shadows):
|
||||
|
|
|
@ -99,7 +99,7 @@ Put first the functions more likely to cause a change and cheaper to compute.")
|
|||
(setq beg (or (previous-single-property-change beg 'syntax-multiline)
|
||||
(point-min))))
|
||||
;;
|
||||
(when (get-text-property end 'font-lock-multiline)
|
||||
(when (get-text-property end 'syntax-multiline)
|
||||
(setq end (or (text-property-any end (point-max)
|
||||
'syntax-multiline nil)
|
||||
(point-max))))
|
||||
|
|
|
@ -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.")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue