diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-12-09 14:15:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-12-09 14:15:06 +0000 |
| commit | af09cb431efd4a6cc448f28313ec33b7c2dc22f2 (patch) | |
| tree | 1b8a89191d45e0ebd630c9957fc19f6d120481a6 /src/bytecode.c | |
| parent | 33f54425db6698cc09e8fc263fe48928e0d4ec74 (diff) | |
(Fbyte_code): Call Ffollowing_char and Fprevious_char
as functions. Don't mask char-syntax arg to just 8 bits.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index f201adebfc6..39e2ae4a434 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -861,12 +861,12 @@ If the third argument is incorrect, Emacs may crash.") 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 @@ If the third argument is incorrect, Emacs may crash.") 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: |