# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1114378543 0
# Node ID 2636b86a665da31180fa1b37498eff54d231c48e
# Parent  ad8d904ee06713fea0f0bb9ec8099bb4e2ebd229
(Fvertical_motion): Bind fontification-functions to nil.

diff -r ad8d904ee067 -r 2636b86a665d src/indent.c
--- a/src/indent.c	Sun Apr 24 21:34:39 2005 +0000
+++ b/src/indent.c	Sun Apr 24 21:35:43 2005 +0000
@@ -65,6 +65,8 @@
 
 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 @@
   struct window *w;
   Lisp_Object old_buffer;
   struct gcpro gcpro1;
+  int count = SPECPDL_INDEX ();
 
   CHECK_NUMBER (lines);
   if (! NILP (window))
@@ -2064,6 +2067,9 @@
       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 @@
   if (BUFFERP (old_buffer))
     w->buffer = old_buffer;
 
+  unbind_to (count, Qnil);
   RETURN_UNGCPRO (make_number (it.vpos));
 }