Mercurial > emacs

changeset 27797:da774b48eb7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmouse_position): GCPRO retval instead of x and y.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 21 Feb 2000 16:17:24 +0000
parents 1cd9f06b5f21
children d00730392332
files src/frame.c
diffstat 1 files changed, 4 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/frame.c	Mon Feb 21 13:50:14 2000 +0000
+++ b/src/frame.c	Mon Feb 21 16:17:24 2000 +0000
@@ -1387,6 +1387,7 @@
   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 @@
 #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,