Commit bd96bd79 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(syms_of_buffer): Add default-cursor-type.

(init_buffer_once): Don't let cursor_type have a local value
in every buffer.
parent 082527fe
No preview for this file type
......@@ -3939,7 +3939,6 @@ init_buffer_once ()
XSETINT (buffer_local_flags.display_count, -1);
XSETINT (buffer_local_flags.display_time, -1);
XSETINT (buffer_local_flags.enable_multibyte_characters, -1);
XSETINT (buffer_local_flags.cursor_type, -1);
idx = 1;
XSETFASTINT (buffer_local_flags.mode_line_format, idx); ++idx;
......@@ -3976,6 +3975,7 @@ init_buffer_once ()
XSETFASTINT (buffer_local_flags.scroll_up_aggressively, idx); ++idx;
XSETFASTINT (buffer_local_flags.scroll_down_aggressively, idx); ++idx;
XSETFASTINT (buffer_local_flags.header_line_format, idx); ++idx;
XSETFASTINT (buffer_local_flags.cursor_type, idx); ++idx;
/* Need more room? */
if (idx >= MAX_BUFFER_LOCAL_VARS)
......@@ -4131,6 +4131,10 @@ This is the same as (default-value 'mode-line-format).");
"Default value of `header-line-format' for buffers that don't override it.\n\
This is the same as (default-value 'header-line-format).");
DEFVAR_LISP_NOPRO ("default-cursor-type", &buffer_defaults.cursor_type,
"Default value of `cursor-type' for buffers that don't override it.\n\
This is the same as (default-value 'cursor-type).");
DEFVAR_LISP_NOPRO ("default-abbrev-mode",
&buffer_defaults.abbrev_mode,
"Default value of `abbrev-mode' for buffers that do not override it.\n\
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment