Mercurial > hg > xemacs-beta

diff lisp/bytecomp/bytecomp.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 8619ce7e4c50
children 538048ae2ab8
line wrap: on
line diff
--- a/lisp/bytecomp/bytecomp.el	Mon Aug 13 09:23:08 2007 +0200
+++ b/lisp/bytecomp/bytecomp.el	Mon Aug 13 09:24:17 2007 +0200
@@ -468,7 +468,7 @@
 (defvar byte-compile-maxdepth 0 "Maximum depth of execution stack.")
 
 
-;;; The byte codes; this information is duplicated in bytecomp.c
+;;; The byte codes; this information is duplicated in bytecode.c
 
 (defconst byte-code-vector nil
   "An array containing byte-code names indexed by byte-code values.")
@@ -2822,7 +2822,7 @@
 (byte-defop-compiler (1+ byte-add1)	1)
 (byte-defop-compiler (1- byte-sub1)	1)
 (byte-defop-compiler goto-char		1+1)
-(byte-defop-compiler char-after		1+1)
+(byte-defop-compiler char-after		0-1+1)
 (byte-defop-compiler set-buffer		1)
 ;;(byte-defop-compiler set-mark		1) ;; obsolete
 (byte-defop-compiler forward-word	1+1)