diff options
author | Gerd Moellmann <[email protected]> | 2000-02-21 16:17:24 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2000-02-21 16:17:24 +0000 |
commit | cb2255b32540d8d039e7762325577a49f7c3765b (patch) | |
tree | 5b77babd08e99d8ce9fb23309abb85b3129a0925 | |
parent | beb0bc361fde072503ffaee5af4165dee10ce426 (diff) |
(Fmouse_position): GCPRO retval instead of x and y.
-rw-r--r-- | src/frame.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/frame.c b/src/frame.c index 7e74113af4..441449f570 100644 --- a/src/frame.c +++ b/src/frame.c @@ -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, |