Mercurial > emacs

comparison src/bytecode.c @ 10134:c681703f7ce3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
10133:3f9bc256eb13 10134:c681703f7ce3
859 case Bchar_after: 859 case Bchar_after:
860 TOP = Fchar_after (TOP); 860 TOP = Fchar_after (TOP);
861 break; 861 break;
862 862
863 case Bfollowing_char: 863 case Bfollowing_char:
864 XSETFASTINT (v1, PT == ZV ? 0 : FETCH_CHAR (point)); 864 v1 = Ffollowing_char ();
865 PUSH (v1); 865 PUSH (v1);
866 break; 866 break;
867 867
868 case Bpreceding_char: 868 case Bpreceding_char:
869 XSETFASTINT (v1, point <= BEGV ? 0 : FETCH_CHAR (point - 1)); 869 v1 = Fprevious_char ();
870 PUSH (v1); 870 PUSH (v1);
871 break; 871 break;
872 872
873 case Bcurrent_column: 873 case Bcurrent_column:
874 XSETFASTINT (v1, current_column ()); 874 XSETFASTINT (v1, current_column ());
935 break; 935 break;
936 936
937 case Bchar_syntax: 937 case Bchar_syntax:
938 CHECK_NUMBER (TOP, 0); 938 CHECK_NUMBER (TOP, 0);
939 XSETFASTINT (TOP, 939 XSETFASTINT (TOP,
940 syntax_code_spec[(int) SYNTAX (0xFF & XINT (TOP))]); 940 syntax_code_spec[(int) SYNTAX (XINT (TOP))]);
941 break; 941 break;
942 942
943 case Bbuffer_substring: 943 case Bbuffer_substring:
944 v1 = POP; 944 v1 = POP;
945 TOP = Fbuffer_substring (TOP, v1); 945 TOP = Fbuffer_substring (TOP, v1);