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 | cec5673e713301cb1147a5d19e3fb6673d61e824 (patch) | |
| tree | 1512bf2b2697e96e6a5e2199a5e8729f9c991c46 | |
| parent | 8d900b6cbcbe2ec9e136c525ca1ee840d6c899ee (diff) | |
| download | emacs-cec5673e713301cb1147a5d19e3fb6673d61e824.tar.gz | |
(Fbyte_code): Call Ffollowing_char and Fprevious_char
as functions. Don't mask char-syntax arg to just 8 bits.
| -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: |