Mercurial > emacs

comparison src/bytecode.c @ 18245:045ae402e927

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Bread_char): Deleted. (Bsave_current_buffer_1): New byte code. (Fbyte_code): Delete handling Bread_char. Handle Bsave_current_buffer_1 like Bsave_current_buffer.
author Richard M. Stallman <rms@gnu.org>
date Sat, 14 Jun 1997 17:08:59 +0000
parents 9e0f59154164
children 1ffd16d0b17c
comparison
equal deleted inserted replaced
18244:909a0f9169b8 18245:045ae402e927
146 #define Beobp 0155 146 #define Beobp 0155
147 #define Bbolp 0156 147 #define Bbolp 0156
148 #define Bbobp 0157 148 #define Bbobp 0157
149 #define Bcurrent_buffer 0160 149 #define Bcurrent_buffer 0160
150 #define Bset_buffer 0161 150 #define Bset_buffer 0161
151 #define Bsave_current_buffer_1 0162 /* Replacing Bsave_current_buffer. */
151 #define Bread_char 0162 /* No longer generated as of v19 */ 152 #define Bread_char 0162 /* No longer generated as of v19 */
152 #define Bset_mark 0163 /* this loser is no longer generated as of v18 */ 153 #define Bset_mark 0163 /* this loser is no longer generated as of v18 */
153 #define Binteractive_p 0164 /* Needed since interactive-p takes unevalled args */ 154 #define Binteractive_p 0164 /* Needed since interactive-p takes unevalled args */
154 155
155 #define Bforward_char 0165 156 #define Bforward_char 0165
574 case Bsave_excursion: 575 case Bsave_excursion:
575 record_unwind_protect (save_excursion_restore, save_excursion_save ()); 576 record_unwind_protect (save_excursion_restore, save_excursion_save ());
576 break; 577 break;
577 578
578 case Bsave_current_buffer: 579 case Bsave_current_buffer:
580 case Bsave_current_buffer_1:
579 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); 581 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
580 break; 582 break;
581 583
582 case Bsave_window_excursion: 584 case Bsave_window_excursion:
583 TOP = Fsave_window_excursion (TOP); 585 TOP = Fsave_window_excursion (TOP);
954 PUSH (Fcurrent_buffer ()); 956 PUSH (Fcurrent_buffer ());
955 break; 957 break;
956 958
957 case Bset_buffer: 959 case Bset_buffer:
958 TOP = Fset_buffer (TOP); 960 TOP = Fset_buffer (TOP);
959 break;
960
961 case Bread_char:
962 PUSH (Fread_char ());
963 QUIT;
964 break; 961 break;
965 962
966 case Binteractive_p: 963 case Binteractive_p:
967 PUSH (Finteractive_p ()); 964 PUSH (Finteractive_p ());
968 break; 965 break;