comparison src/buffer.c @ 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 986882bafaf1
children 1555145f8c35
comparison
equal deleted inserted replaced
28331:94b4bc919c66 28332:8abeccb78576
3937 XSETINT (buffer_local_flags.invisibility_spec, -1); 3937 XSETINT (buffer_local_flags.invisibility_spec, -1);
3938 XSETINT (buffer_local_flags.file_format, -1); 3938 XSETINT (buffer_local_flags.file_format, -1);
3939 XSETINT (buffer_local_flags.display_count, -1); 3939 XSETINT (buffer_local_flags.display_count, -1);
3940 XSETINT (buffer_local_flags.display_time, -1); 3940 XSETINT (buffer_local_flags.display_time, -1);
3941 XSETINT (buffer_local_flags.enable_multibyte_characters, -1); 3941 XSETINT (buffer_local_flags.enable_multibyte_characters, -1);
3942 XSETINT (buffer_local_flags.cursor_type, -1);
3943 3942
3944 idx = 1; 3943 idx = 1;
3945 XSETFASTINT (buffer_local_flags.mode_line_format, idx); ++idx; 3944 XSETFASTINT (buffer_local_flags.mode_line_format, idx); ++idx;
3946 XSETFASTINT (buffer_local_flags.abbrev_mode, idx); ++idx; 3945 XSETFASTINT (buffer_local_flags.abbrev_mode, idx); ++idx;
3947 XSETFASTINT (buffer_local_flags.overwrite_mode, idx); ++idx; 3946 XSETFASTINT (buffer_local_flags.overwrite_mode, idx); ++idx;
3974 XSETFASTINT (buffer_local_flags.right_margin_width, idx); ++idx; 3973 XSETFASTINT (buffer_local_flags.right_margin_width, idx); ++idx;
3975 XSETFASTINT (buffer_local_flags.indicate_empty_lines, idx); ++idx; 3974 XSETFASTINT (buffer_local_flags.indicate_empty_lines, idx); ++idx;
3976 XSETFASTINT (buffer_local_flags.scroll_up_aggressively, idx); ++idx; 3975 XSETFASTINT (buffer_local_flags.scroll_up_aggressively, idx); ++idx;
3977 XSETFASTINT (buffer_local_flags.scroll_down_aggressively, idx); ++idx; 3976 XSETFASTINT (buffer_local_flags.scroll_down_aggressively, idx); ++idx;
3978 XSETFASTINT (buffer_local_flags.header_line_format, idx); ++idx; 3977 XSETFASTINT (buffer_local_flags.header_line_format, idx); ++idx;
3978 XSETFASTINT (buffer_local_flags.cursor_type, idx); ++idx;
3979 3979
3980 /* Need more room? */ 3980 /* Need more room? */
3981 if (idx >= MAX_BUFFER_LOCAL_VARS) 3981 if (idx >= MAX_BUFFER_LOCAL_VARS)
3982 abort (); 3982 abort ();
3983 max_buffer_local_idx = idx; 3983 max_buffer_local_idx = idx;
4128 4128
4129 DEFVAR_LISP_NOPRO ("default-header-line-format", 4129 DEFVAR_LISP_NOPRO ("default-header-line-format",
4130 &buffer_defaults.header_line_format, 4130 &buffer_defaults.header_line_format,
4131 "Default value of `header-line-format' for buffers that don't override it.\n\ 4131 "Default value of `header-line-format' for buffers that don't override it.\n\
4132 This is the same as (default-value 'header-line-format)."); 4132 This is the same as (default-value 'header-line-format).");
4133
4134 DEFVAR_LISP_NOPRO ("default-cursor-type", &buffer_defaults.cursor_type,
4135 "Default value of `cursor-type' for buffers that don't override it.\n\
4136 This is the same as (default-value 'cursor-type).");
4133 4137
4134 DEFVAR_LISP_NOPRO ("default-abbrev-mode", 4138 DEFVAR_LISP_NOPRO ("default-abbrev-mode",
4135 &buffer_defaults.abbrev_mode, 4139 &buffer_defaults.abbrev_mode,
4136 "Default value of `abbrev-mode' for buffers that do not override it.\n\ 4140 "Default value of `abbrev-mode' for buffers that do not override it.\n\
4137 This is the same as (default-value 'abbrev-mode)."); 4141 This is the same as (default-value 'abbrev-mode).");