diff options
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/buffer.c b/src/buffer.c index c00cc40d6f2..713c1e5b944 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -357,6 +357,11 @@ bset_zv_marker (struct buffer *b, Lisp_Object val) { b->zv_marker_ = val; } +static void +bset_literal_cache_hwm (struct buffer *b, Lisp_Object val) +{ + b->literal_cache_hwm_ = val; +} void nsberror (Lisp_Object spec) @@ -5116,6 +5121,7 @@ init_buffer_once (void) XSETFASTINT (BVAR (&buffer_local_flags, cursor_type), idx); ++idx; XSETFASTINT (BVAR (&buffer_local_flags, extra_line_spacing), idx); ++idx; XSETFASTINT (BVAR (&buffer_local_flags, cursor_in_non_selected_windows), idx); ++idx; + XSETFASTINT (BVAR (&buffer_local_flags, literal_cache_hwm), idx); ++idx; /* Need more room? */ if (idx >= MAX_PER_BUFFER_VARS) @@ -5202,6 +5208,7 @@ init_buffer_once (void) bset_scroll_up_aggressively (&buffer_defaults, Qnil); bset_scroll_down_aggressively (&buffer_defaults, Qnil); bset_display_time (&buffer_defaults, Qnil); + bset_literal_cache_hwm (&buffer_defaults, make_number (1)); /* Assign the local-flags to the slots that have default values. The local flag is a bit that is used in the buffer @@ -6133,6 +6140,10 @@ If t, displays a cursor related to the usual cursor type You can also specify the cursor type as in the `cursor-type' variable. Use Custom to set this variable and update the display. */); + DEFVAR_PER_BUFFER ("literal-cache-hwm", + &BVAR (current_buffer, literal_cache_hwm), Qintegerp, + doc: /* Buffer position below which the `literal-cache' property is valid. */); + DEFVAR_LISP ("kill-buffer-query-functions", Vkill_buffer_query_functions, doc: /* List of functions called with no args to query before killing a buffer. The buffer being killed will be current while the functions are running. |