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);