Commit d73f2d85 authored by Leo Liu's avatar Leo Liu

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

parent 89b354a5
...@@ -415,7 +415,8 @@ as an integer unless JUNK-ALLOWED is non-nil." ...@@ -415,7 +415,8 @@ as an integer unless JUNK-ALLOWED is non-nil."
(skip-whitespace) (skip-whitespace)
(cond ((and junk-allowed (null sum)) sum) (cond ((and junk-allowed (null sum)) sum)
(junk-allowed (* sign 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))))))) (t (* sign sum)))))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment