From: Leo Liu <sdl.web@gmail.com>
Date: Fri, 26 Sep 2014 02:01:17 +0000 (+0800)
Subject: * emacs-lisp/cl-extra.el (cl-parse-integer): Fix last change.
X-Git-Tag: emacs-25.0.90~2635^2~679^2~217
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d73f2d856cdce1fed213d8d4f693dc60be9553cb;p=emacs.git

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

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index c8404e0bc2d..e10844069ef 100644
--- 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)))))))