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

d73f2d85 · Leo Liu · 89b354a5 · d73f2d85
Commit d73f2d85 authored Sep 26, 2014 by Leo Liu
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/emacs-lisp/cl-extra.el lisp/emacs-lisp/cl-extra.el +2 -1

No files found.
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -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)))))))