comparison src/event-stream.c @ 707:a307f9a2021d

[xemacs-hg @ 2001-12-20 05:49:28 by andyp] sync with 21-4-6-windows
author andyp
date Thu, 20 Dec 2001 05:49:48 +0000
parents fdefd0186b75
children b1f74adcc1ff
comparison
equal deleted inserted replaced
706:c9bf82d465b5 707:a307f9a2021d
4288 Lisp_Object event = Fmake_event (Qnil, Qnil); 4288 Lisp_Object event = Fmake_event (Qnil, Qnil);
4289 int speccount = specpdl_depth (); 4289 int speccount = specpdl_depth ();
4290 struct gcpro gcpro1; 4290 struct gcpro gcpro1;
4291 GCPRO1 (event); 4291 GCPRO1 (event);
4292 4292
4293 record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
4293 if (!NILP (prompt)) 4294 if (!NILP (prompt))
4294 CHECK_STRING (prompt); 4295 CHECK_STRING (prompt);
4295 /* else prompt = Fkeymap_prompt (current_buffer->keymap); may GC */ 4296 /* else prompt = Fkeymap_prompt (current_buffer->keymap); may GC */
4296 QUIT; 4297 QUIT;
4297 4298