Mercurial > emacs

changeset 61817:2636b86a665d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fvertical_motion): Bind fontification-functions to nil.
author Richard M. Stallman <rms@gnu.org>
date Sun, 24 Apr 2005 21:35:43 +0000
parents ad8d904ee067
children bd461614f08f
files src/indent.c
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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));
 }