From d73f2d856cdce1fed213d8d4f693dc60be9553cb Mon Sep 17 00:00:00 2001
From: Leo Liu <sdl.web@gmail.com>
Date: Fri, 26 Sep 2014 10:01:17 +0800
Subject: [PATCH] * emacs-lisp/cl-extra.el (cl-parse-integer): Fix last change.

---
 lisp/emacs-lisp/cl-extra.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)))))))
 
 
-- 
2.39.5