From bb2ec97602df08d90f26e02f3d97b429d900d419 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sun, 26 Mar 2000 16:25:09 +0000 Subject: [PATCH] (reset_buffer): Initialize buffer's cursor_type. (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. --- src/buffer.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/src/buffer.c b/src/buffer.c index 268d8bb5519..b243ab9415e 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -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", ¤t_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; -- 2.39.5