mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

(reset_buffer): Initialize buffer's cursor_type.

Browse source 
(init_buffer_once): Set default cursor_type value to t.
Mark cursor_type as local everywhere.
(syms_of_buffer): New per-buffer variable cursor-type.
This commit is contained in:
Gerd Moellmann 2000-03-26 16:25:09 +00:00
parent f02d8aa0f6
commit bb2ec97602
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/buffer.c
View file

@ -543,6 +543,7 @@ reset_buffer (b)
b->extra2 = Qnil;
b->extra3 = Qnil;
b->enable_multibyte_characters = buffer_defaults.enable_multibyte_characters;
b->cursor_type = buffer_defaults.cursor_type;
}
/* Reset buffer B's local variables info.
@ -3894,6 +3895,7 @@ init_buffer_once ()
buffer_defaults.truncate_lines = Qnil;
buffer_defaults.ctl_arrow = Qt;
buffer_defaults.direction_reversed = Qnil;
buffer_defaults.cursor_type = Qt;
#ifdef DOS_NT
buffer_defaults.buffer_file_type = Qnil; /* TEXT */
@ -3937,6 +3939,7 @@ 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;
@ -4705,6 +4708,16 @@ and disregard a `read-only' text property if the property value\n\
is a member of the list.");
Vinhibit_read_only = Qnil;
DEFVAR_PER_BUFFER ("cursor-type", &current_buffer->cursor_type, Qnil,
"Cursor to use in window displaying this buffer.\n\
Values are interpreted as follows:\n\
\n\
t use the cursor specified for the frame\n\
nil don't display a cursor\n\
`bar' display a bar cursor with default width\n\
(bar . WIDTH) display a bar cursor with width WIDTH\n\
others display a box cursor.");
DEFVAR_LISP ("kill-buffer-query-functions", &Vkill_buffer_query_functions,
"List of functions called with no args to query before killing a buffer.");
Vkill_buffer_query_functions = Qnil;