Mercurial > emacs

changeset 3658:c2831d419bec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmouse_position): Set up defaults before calling the hook.
author Richard M. Stallman <rms@gnu.org>
date Fri, 11 Jun 1993 17:14:31 +0000
parents 7503a402c721
children 296caa999ccf
files src/frame.c
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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,