# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 897971523 0
# Node ID 274456e421ab07cfa4385595f8264f103c17fbe6
# Parent  a478a91f3fbb81c6b7723f460ba54cd09e61edd7
(message_dolog): GCPRO the oldpoint, oldbegv and oldzv
markers, and old_deactivate_mark.

diff -r a478a91f3fbb -r 274456e421ab src/xdisp.c
--- a/src/xdisp.c	Mon Jun 15 22:46:48 1998 +0000
+++ b/src/xdisp.c	Tue Jun 16 04:32:03 1998 +0000
@@ -297,6 +297,7 @@
       int point_at_end = 0;
       int zv_at_end = 0;
       Lisp_Object old_deactivate_mark, tem;
+      struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
 
       old_deactivate_mark = Vdeactivate_mark;
       oldbuf = current_buffer;
@@ -306,6 +307,7 @@
       oldpoint = Fpoint_marker ();
       oldbegv = Fpoint_min_marker ();
       oldzv = Fpoint_max_marker ();
+      GCPRO4 (oldpoint, oldbegv, oldzv, old_deactivate_mark);
 
       if (PT == Z)
 	point_at_end = 1;
@@ -415,6 +417,7 @@
       else
 	Fgoto_char (oldpoint);
 
+      UNGCPRO;
       free_marker (oldpoint);
       free_marker (oldbegv);
       free_marker (oldzv);