aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman1994-04-30 07:40:40 +0000
committerRichard M. Stallman1994-04-30 07:40:40 +0000
commit5846638c2812ff6934f6a7cc7bf9dc051854515e (patch)
treea79b3e1103e98fc4e886d2cd90f2397060d5892c /src
parent55796183f834e5c1d34658a6c68d51fddacbb6cd (diff)
downloademacs-5846638c2812ff6934f6a7cc7bf9dc051854515e.tar.gz
emacs-5846638c2812ff6934f6a7cc7bf9dc051854515e.zip
(force_auto_save_soon): New function.
(make_lispy_movement): If HAVE_MOUSE, include the mouse handling code.
Diffstat (limited to 'src')
-rw-r--r--src/keyboard.c12
1 files changed, 10 insertions, 2 deletions
diff --git a/src/keyboard.c b/src/keyboard.c
index f0402c50235..d1cda6c6ffd 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -663,10 +663,18 @@ recursive_edit_1 ()
663} 663}
664 664
665/* When an auto-save happens, record the "time", and don't do again soon. */ 665/* When an auto-save happens, record the "time", and don't do again soon. */
666
666record_auto_save () 667record_auto_save ()
667{ 668{
668 last_auto_save = num_nonmacro_input_chars; 669 last_auto_save = num_nonmacro_input_chars;
669} 670}
671
672/* Make an auto save happen as soon as possible at command level. */
673
674force_auto_save_soon ()
675{
676 last_auto_save = - auto_save_interval - 1;
677}
670 678
671DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "", 679DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "",
672 "Invoke the editor command loop recursively.\n\ 680 "Invoke the editor command loop recursively.\n\
@@ -2479,7 +2487,7 @@ make_lispy_event (event)
2479 / sizeof (lispy_function_keys[0]))); 2487 / sizeof (lispy_function_keys[0])));
2480 break; 2488 break;
2481 2489
2482#ifdef MULTI_FRAME 2490#if defined(MULTI_FRAME) || defined(HAVE_MOUSE)
2483 /* A mouse click. Figure out where it is, decide whether it's 2491 /* A mouse click. Figure out where it is, decide whether it's
2484 a press, click or drag, and build the appropriate structure. */ 2492 a press, click or drag, and build the appropriate structure. */
2485 case mouse_click: 2493 case mouse_click:
@@ -2708,7 +2716,7 @@ make_lispy_event (event)
2708 Qnil)); 2716 Qnil));
2709 } 2717 }
2710 } 2718 }
2711#endif /* MULTI_FRAME */ 2719#endif /* MULTI_FRAME or HAVE_MOUSE */
2712 2720
2713 /* The 'kind' field of the event is something we don't recognize. */ 2721 /* The 'kind' field of the event is something we don't recognize. */
2714 default: 2722 default: