Mercurial > emacs
changeset 104620:dbe0b4c419f5
(byte-compile-lapcode): Fix up last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 26 Aug 2009 14:47:23 +0000 |
| parents | 90578b9cc2d2 |
| children | f4a041a8c69d |
| files | lisp/ChangeLog lisp/emacs-lisp/bytecomp.el |
| diffstat | 2 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Aug 26 08:28:23 2009 +0000 +++ b/lisp/ChangeLog Wed Aug 26 14:47:23 2009 +0000 @@ -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.
--- a/lisp/emacs-lisp/bytecomp.el Wed Aug 26 08:28:23 2009 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Wed Aug 26 14:47:23 2009 +0000 @@ -856,7 +856,7 @@ (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))))