65 |
|
|
66 |
int current_column_bol_cache; |
int current_column_bol_cache; |
67 |
|
|
68 |
|
extern Lisp_Object Qfontification_functions; |
69 |
|
|
70 |
/* Get the display table to use for the current buffer. */ |
/* Get the display table to use for the current buffer. */ |
71 |
|
|
72 |
struct Lisp_Char_Table * |
struct Lisp_Char_Table * |
2049 |
struct window *w; |
struct window *w; |
2050 |
Lisp_Object old_buffer; |
Lisp_Object old_buffer; |
2051 |
struct gcpro gcpro1; |
struct gcpro gcpro1; |
2052 |
|
int count = SPECPDL_INDEX (); |
2053 |
|
|
2054 |
CHECK_NUMBER (lines); |
CHECK_NUMBER (lines); |
2055 |
if (! NILP (window)) |
if (! NILP (window)) |
2067 |
XSETBUFFER (w->buffer, current_buffer); |
XSETBUFFER (w->buffer, current_buffer); |
2068 |
} |
} |
2069 |
|
|
2070 |
|
/* Don't fontify text that we just move across. */ |
2071 |
|
specbind (Qfontification_functions, Qnil); |
2072 |
|
|
2073 |
if (noninteractive) |
if (noninteractive) |
2074 |
{ |
{ |
2075 |
struct position pos; |
struct position pos; |
2115 |
if (BUFFERP (old_buffer)) |
if (BUFFERP (old_buffer)) |
2116 |
w->buffer = old_buffer; |
w->buffer = old_buffer; |
2117 |
|
|
2118 |
|
unbind_to (count, Qnil); |
2119 |
RETURN_UNGCPRO (make_number (it.vpos)); |
RETURN_UNGCPRO (make_number (it.vpos)); |
2120 |
} |
} |
2121 |
|
|