Mercurial > hg > xemacs-beta

comparison src/cmdloop.c @ 434:9d177e8d4150 r21-2-25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-25
author cvs
date Mon, 13 Aug 2007 11:30:53 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
433:892ca416f0fb 434:9d177e8d4150
516 /* cancel_echoing (); */ 516 /* cancel_echoing (); */
517 /* This magically makes single character keyboard macros work just 517 /* This magically makes single character keyboard macros work just
518 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
519 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
520 thing" is. */ 520 thing" is. */
521 if (!(((STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro)) 521 if (!((STRINGP (Vexecuting_macro) || VECTORP (Vexecuting_macro))
522 && XINT (Flength (Vexecuting_macro)) == 1))) 522 && XINT (Flength (Vexecuting_macro)) == 1))
523 Vlast_command = Qt; 523 Vlast_command = Qt;
524 524
525 #ifndef LISP_COMMAND_LOOP 525 #ifndef LISP_COMMAND_LOOP
526 while (1) 526 while (1)
527 #else 527 #else
531 { 531 {
532 /* If focus_follows_mouse, make sure the frame with window manager 532 /* If focus_follows_mouse, make sure the frame with window manager
533 focus is selected. */ 533 focus is selected. */
534 if (focus_follows_mouse) 534 if (focus_follows_mouse)
535 investigate_frame_change (); 535 investigate_frame_change ();
536 536
537 /* Make sure the current window's buffer is selected. */ 537 /* Make sure the current window's buffer is selected. */
538 { 538 {
539 Lisp_Object selected_window = Fselected_window (Qnil); 539 Lisp_Object selected_window = Fselected_window (Qnil);
540 540
541 if (!NILP (selected_window) && 541 if (!NILP (selected_window) &&