Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 538048ae2ab8
children 15872534500d
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
153 #define Beobp 0155 153 #define Beobp 0155
154 #define Bbolp 0156 154 #define Bbolp 0156
155 #define Bbobp 0157 155 #define Bbobp 0157
156 #define Bcurrent_buffer 0160 156 #define Bcurrent_buffer 0160
157 #define Bset_buffer 0161 157 #define Bset_buffer 0161
158 #define Bread_char 0162 /* No longer generated as of v19 */ 158 #define Bsave_current_buffer 0162 /* was Bread_char, but no longer
159 generated as of v19 */
159 #define Bmemq 0163 /* was Bset_mark, but no longer generated as of v18 */ 160 #define Bmemq 0163 /* was Bset_mark, but no longer generated as of v18 */
160 #define Binteractive_p 0164 /* Needed since interactive-p takes unevalled args */ 161 #define Binteractive_p 0164 /* Needed since interactive-p takes unevalled args */
161 162
162 #define Bforward_char 0165 163 #define Bforward_char 0165
163 #define Bforward_word 0166 164 #define Bforward_word 0166
939 940
940 case Bset_buffer: 941 case Bset_buffer:
941 TOP = Fset_buffer (TOP); 942 TOP = Fset_buffer (TOP);
942 break; 943 break;
943 944
944 case Bread_char: 945 case Bsave_current_buffer:
945 error ("read-char is an obsolete byte code"); 946 {
946 break; 947 Lisp_Object save_current_buffer_restore (Lisp_Object);
948
949 record_unwind_protect (save_current_buffer_restore,
950 Fcurrent_buffer ());
951 break;
952 }
947 953
948 case Binteractive_p: 954 case Binteractive_p:
949 PUSH (Finteractive_p ()); 955 PUSH (Finteractive_p ());
950 break; 956 break;
951 957