diff options
| author | Leo Liu | 2014-09-26 10:01:17 +0800 |
|---|---|---|
| committer | Leo Liu | 2014-09-26 10:01:17 +0800 |
| commit | d73f2d856cdce1fed213d8d4f693dc60be9553cb (patch) | |
| tree | d6d6a3c02f33d076b82bd18329f7a9414e904f86 | |
| parent | 89b354a55e30978444ada5d388e18f5e06bde583 (diff) | |
| download | emacs-d73f2d856cdce1fed213d8d4f693dc60be9553cb.tar.gz emacs-d73f2d856cdce1fed213d8d4f693dc60be9553cb.zip | |
* emacs-lisp/cl-extra.el (cl-parse-integer): Fix last change.
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 415 | (skip-whitespace) | 415 | (skip-whitespace) |
| 416 | (cond ((and junk-allowed (null sum)) sum) | 416 | (cond ((and junk-allowed (null sum)) sum) |
| 417 | (junk-allowed (* sign sum)) | 417 | (junk-allowed (* sign sum)) |
| 418 | ((/= start end) (error "Not an integer string: %s" string)) | 418 | ((or (/= start end) (null sum)) |
| 419 | (error "Not an integer string: `%s'" string)) | ||
| 419 | (t (* sign sum))))))) | 420 | (t (* sign sum))))))) |
| 420 | 421 | ||
| 421 | 422 | ||