Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 3d6bfa290dbd
children e45d5e7c476e
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
970 case Bforward_line: 970 case Bforward_line:
971 TOP = Fforward_line (TOP, Fcurrent_buffer ()); 971 TOP = Fforward_line (TOP, Fcurrent_buffer ());
972 break; 972 break;
973 973
974 case Bchar_syntax: 974 case Bchar_syntax:
975 #if 0
975 CHECK_CHAR_COERCE_INT (TOP); 976 CHECK_CHAR_COERCE_INT (TOP);
976 TOP = make_char (syntax_code_spec 977 TOP = make_char (syntax_code_spec
977 [(int) SYNTAX 978 [(int) SYNTAX
978 (XCHAR_TABLE 979 (XCHAR_TABLE
979 (current_buffer->mirror_syntax_table), 980 (current_buffer->mirror_syntax_table),
980 XCHAR (TOP))]); 981 XCHAR (TOP))]);
982 #endif
983 /*v1 = POP;*/
984 TOP = Fchar_syntax(TOP, Qnil);
981 break; 985 break;
982 986
983 case Bbuffer_substring: 987 case Bbuffer_substring:
984 v1 = POP; 988 v1 = POP;
985 TOP = Fbuffer_substring (TOP, v1, Fcurrent_buffer ()); 989 TOP = Fbuffer_substring (TOP, v1, Fcurrent_buffer ());