comparison src/callint.c @ 11345:c4adea8f7543

(Fcall_interactively): Call single_kboard_state to switch to the single-kboard state.
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Apr 1995 07:22:15 +0000
parents 5146fba1f75d
children b945fc51a3b6
comparison
equal deleted inserted replaced
11344:6f5c3bb789a5 11345:c4adea8f7543
294 goto lose; 294 goto lose;
295 specs = Fcar (Fcdr (specs)); 295 specs = Fcar (Fcdr (specs));
296 } 296 }
297 else if (EQ (funcar, Qmocklisp)) 297 else if (EQ (funcar, Qmocklisp))
298 { 298 {
299 #ifdef MULTI_KBOARD 299 single_kboard_state ();
300 kboard_locked = 1;
301 #endif
302 return ml_apply (fun, Qinteractive); 300 return ml_apply (fun, Qinteractive);
303 } 301 }
304 else 302 else
305 goto lose; 303 goto lose;
306 304
350 } 348 }
351 } 349 }
352 Vcommand_history 350 Vcommand_history
353 = Fcons (Fcons (function, values), Vcommand_history); 351 = Fcons (Fcons (function, values), Vcommand_history);
354 } 352 }
355 #ifdef MULTI_KBOARD 353 single_kboard_state ();
356 kboard_locked = 1;
357 #endif
358 return apply1 (function, specs); 354 return apply1 (function, specs);
359 } 355 }
360 356
361 /* Here if function specifies a string to control parsing the defaults */ 357 /* Here if function specifies a string to control parsing the defaults */
362 358
659 temporarily, convert it to an integer now. */ 655 temporarily, convert it to an integer now. */
660 for (i = 1; i <= count; i++) 656 for (i = 1; i <= count; i++)
661 if (varies[i] >= 1 && varies[i] <= 4) 657 if (varies[i] >= 1 && varies[i] <= 4)
662 XSETINT (args[i], marker_position (args[i])); 658 XSETINT (args[i], marker_position (args[i]));
663 659
664 #ifdef MULTI_KBOARD 660 single_kboard_state ();
665 kboard_locked = 1;
666 #endif
667 661
668 { 662 {
669 Lisp_Object val; 663 Lisp_Object val;
670 specbind (Qcommand_debug_status, Qnil); 664 specbind (Qcommand_debug_status, Qnil);
671 665