From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 30 Apr 1994 07:40:40 +0000 (+0000)
Subject: (force_auto_save_soon): New function.
X-Git-Tag: emacs-19.34~8629
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5846638c2812ff6934f6a7cc7bf9dc051854515e;p=emacs.git

(force_auto_save_soon): New function.

(make_lispy_movement): If HAVE_MOUSE, include the mouse handling code.
---

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 ()
 }
 
 /* When an auto-save happens, record the "time", and don't do again soon.  */
+
 record_auto_save ()
 {
   last_auto_save = num_nonmacro_input_chars;
 }
+
+/* Make an auto save happen as soon as possible at command level.  */
+
+force_auto_save_soon ()
+{
+  last_auto_save = - auto_save_interval - 1;
+}
 
 DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "",
   "Invoke the editor command loop recursively.\n\
@@ -2479,7 +2487,7 @@ make_lispy_event (event)
 				   / sizeof (lispy_function_keys[0])));
       break;
 
-#ifdef MULTI_FRAME
+#if defined(MULTI_FRAME) || defined(HAVE_MOUSE)
       /* A mouse click.  Figure out where it is, decide whether it's 
          a press, click or drag, and build the appropriate structure.  */
     case mouse_click:
@@ -2708,7 +2716,7 @@ make_lispy_event (event)
 				 Qnil));
 	}
       }
-#endif /* MULTI_FRAME */
+#endif /* MULTI_FRAME or HAVE_MOUSE */
 
       /* The 'kind' field of the event is something we don't recognize.  */
     default: