mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 23:10:47 -08:00
Code Issues Projects Releases Wiki Activity

(Fbyte_code): Call Ffollowing_char and Fprevious_char

Browse source 
as functions.  Don't mask char-syntax arg to just 8 bits.
This commit is contained in:
Richard M. Stallman 1994-12-09 14:15:06 +00:00
parent 33f54425db
commit af09cb431e
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/bytecode.c
View file

@ -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: