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

2014-09-26 10:01:17 +08:00
parent 89b354a55e
commit d73f2d856c
1 changed files with 2 additions and 1 deletions
--- 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)))))))