comparison src/indent.c @ 61817:2636b86a665d

(Fvertical_motion): Bind fontification-functions to nil.

61816:ad8d904ee067

/* Cache of beginning of line found by the last call of
   current_column. */

int current_column_bol_cache;

/* Get the display table to use for the current buffer.  */

struct Lisp_Char_Table *
buffer_display_table ()

  struct it it;
  struct text_pos pt;
  struct window *w;
  Lisp_Object old_buffer;
  struct gcpro gcpro1;

  CHECK_NUMBER (lines);
  if (! NILP (window))
    CHECK_WINDOW (window);
  else

    {
      /* Set the window's buffer temporarily to the current buffer.  */
      old_buffer = w->buffer;
      XSETBUFFER (w->buffer, current_buffer);
    }

  if (noninteractive)
    {
      struct position pos;
      pos = *vmotion (PT, XINT (lines), w);

    }

  if (BUFFERP (old_buffer))
    w->buffer = old_buffer;

  RETURN_UNGCPRO (make_number (it.vpos));
}




61817:2636b86a665d

/* Cache of beginning of line found by the last call of
   current_column. */

int current_column_bol_cache;

extern Lisp_Object Qfontification_functions;

/* Get the display table to use for the current buffer.  */

struct Lisp_Char_Table *
buffer_display_table ()

  struct it it;
  struct text_pos pt;
  struct window *w;
  Lisp_Object old_buffer;
  struct gcpro gcpro1;
  int count = SPECPDL_INDEX ();

  CHECK_NUMBER (lines);
  if (! NILP (window))
    CHECK_WINDOW (window);
  else

    {
      /* Set the window's buffer temporarily to the current buffer.  */
      old_buffer = w->buffer;
      XSETBUFFER (w->buffer, current_buffer);
    }

  /* Don't fontify text that we just move across.  */
  specbind (Qfontification_functions, Qnil);

  if (noninteractive)
    {
      struct position pos;
      pos = *vmotion (PT, XINT (lines), w);

    }

  if (BUFFERP (old_buffer))
    w->buffer = old_buffer;

  unbind_to (count, Qnil);
  RETURN_UNGCPRO (make_number (it.vpos));
}