(Fmouse_position--both definitions): Pass 0 for `insist'.
authorRichard M. Stallman <rms@gnu.org>
Sun, 26 Mar 1995 21:13:40 +0000 (21:13 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sun, 26 Mar 1995 21:13:40 +0000 (21:13 +0000)
(Fmouse_pixel_position): Pass 0 for `insist'.
Add HAVE_MOUSE conditional.

src/frame.c

index f0e146c..d1b70fd 100644 (file)
@@ -1058,7 +1058,7 @@ and nil for X and Y.")
 #ifdef HAVE_MOUSE
   /* It's okay for the hook to refrain from storing anything.  */
   if (mouse_position_hook)
-    (*mouse_position_hook) (&f,
+    (*mouse_position_hook) (&f, 0,
                            &lispy_dummy, &party_dummy,
                            &x, &y,
                            &long_dummy);
@@ -1095,12 +1095,14 @@ and nil for X and Y.")
   f = selected_frame;
   x = y = Qnil;
 
+#ifdef HAVE_MOUSE
   /* It's okay for the hook to refrain from storing anything.  */
   if (mouse_position_hook)
-    (*mouse_position_hook) (&f,
+    (*mouse_position_hook) (&f, 0,
                            &lispy_dummy, &party_dummy,
                            &x, &y,
                            &long_dummy);
+#endif
   XSETFRAME (lispy_dummy, f);
   return Fcons (lispy_dummy, Fcons (x, y));
 }
@@ -2144,7 +2146,7 @@ DEFUN ("mouse-position", Fmouse_position, Smouse_position, 0, 0, 0,
       Lisp_Object x, y;
       unsigned long long_dummy;
 
-      (*mouse_position_hook) (&f,
+      (*mouse_position_hook) (&f, 0,
                              &lispy_dummy, &party_dummy,
                              &x, &y,
                              &long_dummy);