# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739818871 0
# Node ID c2831d419bec8456b2169eb618e69c9db513a906
# Parent  7503a402c72135859bd55b9fd27cefa21145b2f8
(Fmouse_position): Set up defaults before calling the hook.

diff -r 7503a402c721 -r c2831d419bec src/frame.c
--- a/src/frame.c	Fri Jun 11 16:36:19 1993 +0000
+++ b/src/frame.c	Fri Jun 11 17:14:31 1993 +0000
@@ -754,19 +754,18 @@
   Lisp_Object x, y;
   unsigned long long_dummy;
 
+  f = selected_frame;
+  x = y = Qnil;
+
+  /* It's okay for the hook to refrain from storing anything.  */
   if (mouse_position_hook)
     (*mouse_position_hook) (&f,
 			    &lispy_dummy, &party_dummy,
 			    &x, &y,
 			    &long_dummy);
-  else
-    {
-      f = selected_frame;
-      x = y = Qnil;
-    }
 
   XSET (lispy_dummy, Lisp_Frame, f);
-  return Fcons (lispy_dummy, Fcons (make_number (x), make_number (y)));
+  return Fcons (lispy_dummy, Fcons (x, y));
 }
 
 DEFUN ("set-mouse-position", Fset_mouse_position, Sset_mouse_position, 3, 3, 0,