mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(init_buffer_once): Handle extra_line_spacing.

Browse Source 
(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.
This commit is contained in:
Gerd Moellmann 2000-04-24 13:55:05 +00:00
parent 82b911fda5
commit a3bbced0df
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/buffer.c
View File

@ -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;