# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 939899019 0
# Node ID 8e4c1c04059b3aede41f6fee3157413b879757a2
# Parent  90595a2d304366019b57b2e11a447ccb7c6f1793
(handle_fontified_prop): GCPRO pos.

diff -r 90595a2d3043 -r 8e4c1c04059b src/xdisp.c
--- a/src/xdisp.c	Thu Oct 14 10:58:15 1999 +0000
+++ b/src/xdisp.c	Thu Oct 14 11:03:39 1999 +0000
@@ -1784,6 +1784,7 @@
 {
   Lisp_Object prop, pos;
   enum prop_handled handled = HANDLED_NORMALLY;
+  struct gcpro gcpro1;
 
   /* Get the value of the `fontified' property at IT's current buffer
      position.  (The `fontified' property doesn't have a special
@@ -1798,6 +1799,7 @@
     {
       Lisp_Object args[2];
 
+      GCPRO1 (pos);
       /* Run the hook functions.  */
       args[0] = Qfontification_functions;
       args[1] = pos;
@@ -1808,6 +1810,7 @@
 	 fontify the text for which reason ever.  */
       if (!NILP (Fget_char_property (pos, Qfontified, Qnil)))
 	handled = HANDLED_RECOMPUTE_PROPS;
+      UNGCPRO;
     }
 
   return handled;