Mercurial > emacs
diff src/bytecode.c @ 10134:c681703f7ce3
(Fbyte_code): Call Ffollowing_char and Fprevious_char
as functions. Don't mask char-syntax arg to just 8 bits.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 09 Dec 1994 14:15:06 +0000 |
parents | a541739a1ba8 |
children | ebaf016075f1 |
line wrap: on
line diff
--- a/src/bytecode.c Fri Dec 09 06:24:22 1994 +0000 +++ b/src/bytecode.c Fri Dec 09 14:15:06 1994 +0000 @@ -861,12 +861,12 @@ break; case Bfollowing_char: - XSETFASTINT (v1, PT == ZV ? 0 : FETCH_CHAR (point)); + v1 = Ffollowing_char (); PUSH (v1); break; case Bpreceding_char: - XSETFASTINT (v1, point <= BEGV ? 0 : FETCH_CHAR (point - 1)); + v1 = Fprevious_char (); PUSH (v1); break; @@ -937,7 +937,7 @@ case Bchar_syntax: CHECK_NUMBER (TOP, 0); XSETFASTINT (TOP, - syntax_code_spec[(int) SYNTAX (0xFF & XINT (TOP))]); + syntax_code_spec[(int) SYNTAX (XINT (TOP))]); break; case Bbuffer_substring: