Mercurial > hg > xemacs-beta
comparison src/bytecode.c @ 223:2c611d1463a6 r20-4b10
Import from CVS: tag r20-4b10
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:10:54 +0200 |
parents | e45d5e7c476e |
children | 084402c475ba |
comparison
equal
deleted
inserted
replaced
222:aae4c8b01452 | 223:2c611d1463a6 |
---|---|
868 v1 = make_int (BUF_PT (current_buffer)); | 868 v1 = make_int (BUF_PT (current_buffer)); |
869 PUSH (v1); | 869 PUSH (v1); |
870 break; | 870 break; |
871 | 871 |
872 case Bgoto_char: | 872 case Bgoto_char: |
873 TOP = Fgoto_char (TOP, Fcurrent_buffer ()); | 873 TOP = Fgoto_char (TOP, Qnil); |
874 break; | 874 break; |
875 | 875 |
876 case Binsert: | 876 case Binsert: |
877 TOP = Finsert (1, &TOP); | 877 TOP = Finsert (1, &TOP); |
878 break; | 878 break; |
892 v1 = make_int (BUF_BEGV (current_buffer)); | 892 v1 = make_int (BUF_BEGV (current_buffer)); |
893 PUSH (v1); | 893 PUSH (v1); |
894 break; | 894 break; |
895 | 895 |
896 case Bchar_after: | 896 case Bchar_after: |
897 TOP = Fchar_after (TOP, Fcurrent_buffer ()); | 897 TOP = Fchar_after (TOP, Qnil); |
898 break; | 898 break; |
899 | 899 |
900 case Bfollowing_char: | 900 case Bfollowing_char: |
901 v1 = Ffollowing_char (Fcurrent_buffer ()); | 901 v1 = Ffollowing_char (Qnil); |
902 PUSH (v1); | 902 PUSH (v1); |
903 break; | 903 break; |
904 | 904 |
905 case Bpreceding_char: | 905 case Bpreceding_char: |
906 v1 = Fpreceding_char (Fcurrent_buffer ()); | 906 v1 = Fpreceding_char (Qnil); |
907 PUSH (v1); | 907 PUSH (v1); |
908 break; | 908 break; |
909 | 909 |
910 case Bcurrent_column: | 910 case Bcurrent_column: |
911 v1 = make_int (current_column (current_buffer)); | 911 v1 = make_int (current_column (current_buffer)); |
912 PUSH (v1); | 912 PUSH (v1); |
913 break; | 913 break; |
914 | 914 |
915 case Bindent_to: | 915 case Bindent_to: |
916 TOP = Findent_to (TOP, Qnil, Fcurrent_buffer ()); | 916 TOP = Findent_to (TOP, Qnil, Qnil); |
917 break; | 917 break; |
918 | 918 |
919 case Beolp: | 919 case Beolp: |
920 PUSH (Feolp (Fcurrent_buffer ())); | 920 PUSH (Feolp (Qnil)); |
921 break; | 921 break; |
922 | 922 |
923 case Beobp: | 923 case Beobp: |
924 PUSH (Feobp (Fcurrent_buffer ())); | 924 PUSH (Feobp (Qnil)); |
925 break; | 925 break; |
926 | 926 |
927 case Bbolp: | 927 case Bbolp: |
928 PUSH (Fbolp (Fcurrent_buffer ())); | 928 PUSH (Fbolp (Qnil)); |
929 break; | 929 break; |
930 | 930 |
931 case Bbobp: | 931 case Bbobp: |
932 PUSH (Fbobp (Fcurrent_buffer ())); | 932 PUSH (Fbobp (Qnil)); |
933 break; | 933 break; |
934 | 934 |
935 case Bcurrent_buffer: | 935 case Bcurrent_buffer: |
936 PUSH (Fcurrent_buffer ()); | 936 PUSH (Fcurrent_buffer ()); |
937 break; | 937 break; |
948 case Binteractive_p: | 948 case Binteractive_p: |
949 PUSH (Finteractive_p ()); | 949 PUSH (Finteractive_p ()); |
950 break; | 950 break; |
951 | 951 |
952 case Bforward_char: | 952 case Bforward_char: |
953 TOP = Fforward_char (TOP, Fcurrent_buffer ()); | 953 TOP = Fforward_char (TOP, Qnil); |
954 break; | 954 break; |
955 | 955 |
956 case Bforward_word: | 956 case Bforward_word: |
957 TOP = Fforward_word (TOP, Fcurrent_buffer ()); | 957 TOP = Fforward_word (TOP, Qnil); |
958 break; | 958 break; |
959 | 959 |
960 case Bskip_chars_forward: | 960 case Bskip_chars_forward: |
961 v1 = POP; | 961 v1 = POP; |
962 TOP = Fskip_chars_forward (TOP, v1, Fcurrent_buffer ()); | 962 TOP = Fskip_chars_forward (TOP, v1, Qnil); |
963 break; | 963 break; |
964 | 964 |
965 case Bskip_chars_backward: | 965 case Bskip_chars_backward: |
966 v1 = POP; | 966 v1 = POP; |
967 TOP = Fskip_chars_backward (TOP, v1, Fcurrent_buffer ()); | 967 TOP = Fskip_chars_backward (TOP, v1, Qnil); |
968 break; | 968 break; |
969 | 969 |
970 case Bforward_line: | 970 case Bforward_line: |
971 TOP = Fforward_line (TOP, Fcurrent_buffer ()); | 971 TOP = Fforward_line (TOP, Qnil); |
972 break; | 972 break; |
973 | 973 |
974 case Bchar_syntax: | 974 case Bchar_syntax: |
975 #if 0 | 975 #if 0 |
976 CHECK_CHAR_COERCE_INT (TOP); | 976 CHECK_CHAR_COERCE_INT (TOP); |
984 TOP = Fchar_syntax(TOP, Qnil); | 984 TOP = Fchar_syntax(TOP, Qnil); |
985 break; | 985 break; |
986 | 986 |
987 case Bbuffer_substring: | 987 case Bbuffer_substring: |
988 v1 = POP; | 988 v1 = POP; |
989 TOP = Fbuffer_substring (TOP, v1, Fcurrent_buffer ()); | 989 TOP = Fbuffer_substring (TOP, v1, Qnil); |
990 break; | 990 break; |
991 | 991 |
992 case Bdelete_region: | 992 case Bdelete_region: |
993 v1 = POP; | 993 v1 = POP; |
994 TOP = Fdelete_region (TOP, v1, Fcurrent_buffer ()); | 994 TOP = Fdelete_region (TOP, v1, Qnil); |
995 break; | 995 break; |
996 | 996 |
997 case Bnarrow_to_region: | 997 case Bnarrow_to_region: |
998 v1 = POP; | 998 v1 = POP; |
999 TOP = Fnarrow_to_region (TOP, v1, Fcurrent_buffer ()); | 999 TOP = Fnarrow_to_region (TOP, v1, Qnil); |
1000 break; | 1000 break; |
1001 | 1001 |
1002 case Bwiden: | 1002 case Bwiden: |
1003 PUSH (Fwiden (Fcurrent_buffer ())); | 1003 PUSH (Fwiden (Qnil)); |
1004 break; | 1004 break; |
1005 | 1005 |
1006 case Bend_of_line: | 1006 case Bend_of_line: |
1007 TOP = Fend_of_line (TOP, Fcurrent_buffer ()); | 1007 TOP = Fend_of_line (TOP, Qnil); |
1008 break; | 1008 break; |
1009 | 1009 |
1010 case Bset_marker: | 1010 case Bset_marker: |
1011 v1 = POP; | 1011 v1 = POP; |
1012 v2 = POP; | 1012 v2 = POP; |
1020 case Bmatch_end: | 1020 case Bmatch_end: |
1021 TOP = Fmatch_end (TOP); | 1021 TOP = Fmatch_end (TOP); |
1022 break; | 1022 break; |
1023 | 1023 |
1024 case Bupcase: | 1024 case Bupcase: |
1025 TOP = Fupcase (TOP, Fcurrent_buffer ()); | 1025 TOP = Fupcase (TOP, Qnil); |
1026 break; | 1026 break; |
1027 | 1027 |
1028 case Bdowncase: | 1028 case Bdowncase: |
1029 TOP = Fdowncase (TOP, Fcurrent_buffer ()); | 1029 TOP = Fdowncase (TOP, Qnil); |
1030 break; | 1030 break; |
1031 | 1031 |
1032 case Bstringeqlsign: | 1032 case Bstringeqlsign: |
1033 v1 = POP; | 1033 v1 = POP; |
1034 TOP = Fstring_equal (TOP, v1); | 1034 TOP = Fstring_equal (TOP, v1); |