mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00
Code Issues Projects Releases Wiki Activity

* emacs-lisp/cl-extra.el (cl-parse-integer): Fix last change.

Browse source
This commit is contained in:
Leo Liu 2014-09-26 10:01:17 +08:00
parent 89b354a55e
commit d73f2d856c
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/cl-extra.el
View file

@ -415,7 +415,8 @@ as an integer unless JUNK-ALLOWED is non-nil."
(skip-whitespace)
(cond ((and junk-allowed (null sum)) sum)
(junk-allowed (* sign sum))
((/= start end) (error "Not an integer string: %s" string))
((or (/= start end) (null sum))
(error "Not an integer string: `%s'" string))
(t (* sign sum)))))))