From cb2255b32540d8d039e7762325577a49f7c3765b Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 21 Feb 2000 16:17:24 +0000
Subject: [PATCH] (Fmouse_position): GCPRO retval instead of x and y.

---
 src/frame.c | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/frame.c b/src/frame.c
index 7e74113af44..441449f5705 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,
-- 
2.39.5