changeset 28322:986882bafaf1

(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.

--- a/src/buffer.c	Sun Mar 26 16:24:24 2000 +0000
+++ b/src/buffer.c	Sun Mar 26 16:25:09 2000 +0000
@@ -543,6 +543,7 @@
   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 @@
   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 @@
   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 @@
 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;