From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Apr 2005 21:35:43 +0000 (+0000)
Subject: (Fvertical_motion): Bind fontification-functions to nil.
X-Git-Tag: ttn-vms-21-2-B4~759
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8f3fe3967ef722987ae2d2ecb96977959ae2a89;p=emacs.git

(Fvertical_motion): Bind fontification-functions to nil.
---

diff --git a/src/indent.c b/src/indent.c
index a810dd3189b..f76b65418ef 100644
--- a/src/indent.c
+++ b/src/indent.c
@@ -65,6 +65,8 @@ static double position_indentation P_ ((int));
 
 int current_column_bol_cache;
 
+extern Lisp_Object Qfontification_functions;
+
 /* Get the display table to use for the current buffer.  */
 
 struct Lisp_Char_Table *
@@ -2047,6 +2049,7 @@ whether or not it is currently displayed in some window.  */)
   struct window *w;
   Lisp_Object old_buffer;
   struct gcpro gcpro1;
+  int count = SPECPDL_INDEX ();
 
   CHECK_NUMBER (lines);
   if (! NILP (window))
@@ -2064,6 +2067,9 @@ whether or not it is currently displayed in some window.  */)
       XSETBUFFER (w->buffer, current_buffer);
     }
 
+  /* Don't fontify text that we just move across.  */
+  specbind (Qfontification_functions, Qnil);
+
   if (noninteractive)
     {
       struct position pos;
@@ -2109,6 +2115,7 @@ whether or not it is currently displayed in some window.  */)
   if (BUFFERP (old_buffer))
     w->buffer = old_buffer;
 
+  unbind_to (count, Qnil);
   RETURN_UNGCPRO (make_number (it.vpos));
 }