From 636a36a0708e8d6dd4849d5265a762a1c64ef3fa Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 26 Aug 2009 14:47:23 +0000 Subject: [PATCH] (byte-compile-lapcode): Fix up last change. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/bytecomp.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix up last change. + 2009-08-26 Dan Nicolaescu * 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)))) -- 2.39.2