Commit c5074d8c authored by Richard M. Stallman's avatar Richard M. Stallman

(Fmouse_position): Set up defaults before calling the hook.

parent b25b6c34
......@@ -754,19 +754,18 @@ and nil for X and Y.")
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,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment