[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/bytecomp.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/08/26 14:47:27

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: bytecomp.el 

Log message:
        (byte-compile-lapcode): Fix up last change.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16018&r2=1.16019
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/bytecomp.el?cvsroot=emacs&r1=2.252&r2=2.253

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16018
retrieving revision 1.16019
diff -u -b -r1.16018 -r1.16019
--- ChangeLog   26 Aug 2009 07:42:11 -0000      1.16018
+++ ChangeLog   26 Aug 2009 14:47:23 -0000      1.16019
@@ -1,3 +1,7 @@
+2009-08-26  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix up last change.
+
 2009-08-26  Dan Nicolaescu  <address@hidden>
 
        * vc-git.el (vc-git-register): Use "git add" for directories.

Index: emacs-lisp/bytecomp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.252
retrieving revision 2.253
diff -u -b -r2.252 -r2.253
--- emacs-lisp/bytecomp.el      26 Aug 2009 02:56:08 -0000      2.252
+++ emacs-lisp/bytecomp.el      26 Aug 2009 14:47:27 -0000      2.253
@@ -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))))