From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 16 Jun 1998 04:32:03 +0000 (+0000)
Subject: (message_dolog): GCPRO the oldpoint, oldbegv and oldzv
X-Git-Tag: emacs-20.3~579
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43c158ed152cfcae012c12059fea2d42344f9997;p=emacs.git

(message_dolog): GCPRO the oldpoint, oldbegv and oldzv
markers, and old_deactivate_mark.
---

diff --git a/src/xdisp.c b/src/xdisp.c
index 4b87ffba4a9..365b172c8a4 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -297,6 +297,7 @@ message_dolog (m, len, nlflag, multibyte)
       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 @@ message_dolog (m, len, nlflag, multibyte)
       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 @@ message_dolog (m, len, nlflag, multibyte)
       else
 	Fgoto_char (oldpoint);
 
+      UNGCPRO;
       free_marker (oldpoint);
       free_marker (oldbegv);
       free_marker (oldzv);