# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954096199 0
# Node ID 8abeccb785763a834f223403090069de158b1f05
# Parent  94b4bc919c66ebcad642f53fa57072ddad50f89d
(syms_of_buffer): Add default-cursor-type.
(init_buffer_once): Don't let cursor_type have a local value
in every buffer.

diff -r 94b4bc919c66 -r 8abeccb78576 src/buffer.c
--- a/src/buffer.c	Sun Mar 26 18:34:30 2000 +0000
+++ b/src/buffer.c	Sun Mar 26 18:43:19 2000 +0000
@@ -3939,7 +3939,6 @@
   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;
@@ -3976,6 +3975,7 @@
   XSETFASTINT (buffer_local_flags.scroll_up_aggressively, idx); ++idx;
   XSETFASTINT (buffer_local_flags.scroll_down_aggressively, idx); ++idx;
   XSETFASTINT (buffer_local_flags.header_line_format, idx); ++idx;
+  XSETFASTINT (buffer_local_flags.cursor_type, idx); ++idx;
 
   /* Need more room? */
   if (idx >= MAX_BUFFER_LOCAL_VARS)
@@ -4131,6 +4131,10 @@
     "Default value of `header-line-format' for buffers that don't override it.\n\
 This is the same as (default-value 'header-line-format).");
 
+  DEFVAR_LISP_NOPRO ("default-cursor-type", &buffer_defaults.cursor_type,
+    "Default value of `cursor-type' for buffers that don't override it.\n\
+This is the same as (default-value 'cursor-type).");
+
   DEFVAR_LISP_NOPRO ("default-abbrev-mode",
 	      &buffer_defaults.abbrev_mode,
     "Default value of `abbrev-mode' for buffers that do not override it.\n\