From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 24 Apr 2000 13:55:05 +0000 (+0000)
Subject: (init_buffer_once): Handle extra_line_spacing.
X-Git-Tag: emacs-pretest-21.0.90~4161
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3bbced0df1558c9538deaf7544dbb2c0595840a;p=emacs.git

(init_buffer_once): Handle extra_line_spacing.
(syms_of_buffer): Add `default-line-spacing' and `line-spacing'.
(reset_buffer): Don't initialize extra2 and extra3.  Intialize
extra_line_spacing from default value.
(init_buffer_once): Initialize default value of extra_line_spacing.
---

diff --git a/src/buffer.c b/src/buffer.c
index f6e655a8314..ed53a09faa8 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -590,10 +590,9 @@ reset_buffer (b)
   b->last_selected_window = Qnil;
   XSETINT (b->display_count, 0);
   b->display_time = Qnil;
-  b->extra2 = Qnil;
-  b->extra3 = Qnil;
   b->enable_multibyte_characters = buffer_defaults.enable_multibyte_characters;
   b->cursor_type = buffer_defaults.cursor_type;
+  b->extra_line_spacing = buffer_defaults.extra_line_spacing;
 }
 
 /* Reset buffer B's local variables info.
@@ -3976,6 +3975,7 @@ init_buffer_once ()
   buffer_defaults.ctl_arrow = Qt;
   buffer_defaults.direction_reversed = Qnil;
   buffer_defaults.cursor_type = Qt;
+  buffer_defaults.extra_line_spacing = Qnil;
 
 #ifdef DOS_NT
   buffer_defaults.buffer_file_type = Qnil; /* TEXT */
@@ -4056,6 +4056,7 @@ init_buffer_once ()
   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;
+  XSETFASTINT (buffer_local_flags.extra_line_spacing, idx); ++idx;
 
   /* Need more room? */
   if (idx >= MAX_PER_BUFFER_VARS)
@@ -4215,6 +4216,11 @@ This is the same as (default-value 'header-line-format).");
     "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-line-spacing",
+		     &buffer_defaults.extra_line_spacing,
+    "Default value of `line-spacing' for buffers that don't override it.\n\
+This is the same as (default-value 'line-spacing).");
+
   DEFVAR_LISP_NOPRO ("default-abbrev-mode",
 	      &buffer_defaults.abbrev_mode,
     "Default value of `abbrev-mode' for buffers that do not override it.\n\
@@ -4802,6 +4808,11 @@ Values are interpreted as follows:\n\
   (bar . WIDTH)	display a bar cursor with width WIDTH\n\
   others	display a box cursor.");
 
+  DEFVAR_PER_BUFFER ("line-spacing",
+		     &current_buffer->extra_line_spacing, Qnil,
+    "Additional space to put between lines when displaying a buffer.\n\
+The space is measured in pixels, and put below lines on window systems.");
+
   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;