diff options
Diffstat (limited to 'src/indent.c')
-rw-r--r-- | src/indent.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/indent.c b/src/indent.c index 39602c60d1..d6709d56ee 100644 --- a/src/indent.c +++ b/src/indent.c @@ -67,6 +67,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 * @@ -2049,6 +2051,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)) @@ -2066,6 +2069,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; @@ -2111,6 +2117,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)); } |