Mercurial > emacs
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)."); |
