Mercurial > emacs
changeset 28332:8abeccb78576
(syms_of_buffer): Add default-cursor-type.
(init_buffer_once): Don't let cursor_type have a local value
in every buffer.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sun, 26 Mar 2000 18:43:19 +0000 |
| parents | 94b4bc919c66 |
| children | 45588bd8d17e |
| files | src/buffer.c |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/buffer.c Sun Mar 26 18:34:30 2000 +0000 +++ b/src/buffer.c Sun Mar 26 18:43:19 2000 +0000 @@ -3939,7 +3939,6 @@ 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 @@ 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 @@ "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\