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."
(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)))))))
......
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