diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-26 14:47:23 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-26 14:47:23 +0000 |
| commit | 636a36a0708e8d6dd4849d5265a762a1c64ef3fa (patch) | |
| tree | b5e1bc933b157173dbc8790fb0da7477aba1d88d /lisp | |
| parent | 878bde492768ea1e0dca48391d1612766f552730 (diff) | |
| download | emacs-636a36a0708e8d6dd4849d5265a762a1c64ef3fa.tar.gz emacs-636a36a0708e8d6dd4849d5265a762a1c64ef3fa.tar.bz2 emacs-636a36a0708e8d6dd4849d5265a762a1c64ef3fa.zip | |
(byte-compile-lapcode): Fix up last change.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8b30443e837..acca989388c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-08-26 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix up last change. + 2009-08-26 Dan Nicolaescu <dann@ics.uci.edu> * vc-git.el (vc-git-register): Use "git add" for directories. diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index f1561c0b279..01d1e270f36 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -856,7 +856,7 @@ otherwise pop it") (setcar (cdr bytes) (logand pc 255)) (setcar bytes (lsh pc -8)) ;; FIXME: Replace this by some workaround. - (if (> (car bytes) 255) (error "Bytecode overflow")))))) + (if (> (car bytes) 255) (error "Bytecode overflow")))) (setq patchlist (cdr patchlist)))) (apply 'unibyte-string (nreverse bytes)))) |