Mercurial > hg > xemacs-beta

comparison src/cmdloop.c @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 8626e4521993
children 501cfd01ee6d
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
37 #include "events.h" 37 #include "events.h"
38 #include "window.h" 38 #include "window.h"
39 39
40 /* Current depth in recursive edits. */ 40 /* Current depth in recursive edits. */
41 int command_loop_level; 41 int command_loop_level;
42
43 /* Total number of times command_loop has read a key sequence. */
44 int num_input_keys;
45 42
46 #ifndef LISP_COMMAND_LOOP 43 #ifndef LISP_COMMAND_LOOP
47 /* Form to evaluate (if non-nil) when Emacs is started. */ 44 /* Form to evaluate (if non-nil) when Emacs is started. */
48 Lisp_Object Vtop_level; 45 Lisp_Object Vtop_level;
49 #else 46 #else
519 /* cancel_echoing (); */ 516 /* cancel_echoing (); */
520 /* This magically makes single character keyboard macros work just 517 /* This magically makes single character keyboard macros work just
521 like the real thing. This is slightly bogus, but it's in here for 518 like the real thing. This is slightly bogus, but it's in here for
522 compatibility with Emacs 18. It's not even clear what the "right 519 compatibility with Emacs 18. It's not even clear what the "right
523 thing" is. */ 520 thing" is. */
524 if (!(((STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro)) 521 if (!((STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro))
525 && XINT (Flength (Vexecuting_macro)) == 1))) 522 && XINT (Flength (Vexecuting_macro)) == 1))
526 Vlast_command = Qt; 523 Vlast_command = Qt;
527 524
528 #ifndef LISP_COMMAND_LOOP 525 #ifndef LISP_COMMAND_LOOP
529 while (1) 526 while (1)
530 #else 527 #else
534 { 531 {
535 /* If focus_follows_mouse, make sure the frame with window manager 532 /* If focus_follows_mouse, make sure the frame with window manager
536 focus is selected. */ 533 focus is selected. */
537 if (focus_follows_mouse) 534 if (focus_follows_mouse)
538 investigate_frame_change (); 535 investigate_frame_change ();
539 536
540 /* Make sure the current window's buffer is selected. */ 537 /* Make sure the current window's buffer is selected. */
541 { 538 {
542 Lisp_Object selected_window = Fselected_window (Qnil); 539 Lisp_Object selected_window = Fselected_window (Qnil);
543 540
544 if (!NILP (selected_window) && 541 if (!NILP (selected_window) &&