Commit cb2255b3 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Fmouse_position): GCPRO retval instead of x and y.

parent beb0bc36
......@@ -1387,6 +1387,7 @@ value as argument.")
Lisp_Object x, y, retval;
int col, row;
unsigned long long_dummy;
struct gcpro gcpro1;
f = SELECTED_FRAME ();
x = y = Qnil;
......@@ -1409,13 +1410,10 @@ value as argument.")
#endif
XSETFRAME (lispy_dummy, f);
retval = Fcons (lispy_dummy, Fcons (x, y));
GCPRO1 (retval);
if (!NILP (Vmouse_position_function))
{
struct gcpro gcpro1, gcpro2;
GCPRO2 (x, y);
RETURN_UNGCPRO (call1 (Vmouse_position_function, retval));
}
return retval;
retval = call1 (Vmouse_position_function, retval);
RETURN_UNGCPRO (retval);
}
DEFUN ("mouse-pixel-position", Fmouse_pixel_position,
......
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