Mercurial > emacs
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 |