diff options
author | Richard M. Stallman <[email protected]> | 1995-03-11 22:36:29 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1995-03-11 22:36:29 +0000 |
commit | 3cb719bd3bb90d9b1c15517919d463d24bf174ce (patch) | |
tree | 21f63b1a5a354459bf147363ff54ae7f098dbed2 /src | |
parent | 4abe97d9b4118c1de1f2fd227d250883af5bf3b5 (diff) |
(reset_buffer_local_variables): Init invisibility.
(init_buffer_once): Set up buffer_local_flags for it.
(syms_of_buffer): New variable `buffer-invisibility-spec'.
Diffstat (limited to 'src')
-rw-r--r-- | src/buffer.c | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/src/buffer.c b/src/buffer.c index 97c82a7468..c7caf2acc7 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -1,5 +1,5 @@ /* Buffer manipulation primitives for GNU Emacs. - Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994 + Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -451,6 +451,8 @@ reset_buffer_local_variables (b) b->case_canon_table = Vascii_canon_table; b->case_eqv_table = Vascii_eqv_table; b->buffer_file_type = Qnil; + b->invisibility_spec = Qt; + #if 0 b->sort_table = XSTRING (Vascii_sort_table); b->folding_sort_table = XSTRING (Vascii_folding_sort_table); @@ -2726,6 +2728,7 @@ init_buffer_once () XSETINT (buffer_local_flags.mark_active, -1); XSETINT (buffer_local_flags.point_before_scroll, -1); XSETINT (buffer_local_flags.file_truename, -1); + XSETINT (buffer_local_flags.invisibility_spec, -1); XSETFASTINT (buffer_local_flags.mode_line_format, 1); XSETFASTINT (buffer_local_flags.abbrev_mode, 2); @@ -3246,6 +3249,17 @@ functions; it should only affect their performance."); DEFVAR_PER_BUFFER ("point-before-scroll", ¤t_buffer->point_before_scroll, Qnil, "Value of point before the last series of scroll operations, or nil."); + DEFVAR_PER_BUFFER ("buffer-invisibility-spec", + ¤t_buffer->invisibility_spec, Qnil, + "Invisibility spec of this buffer.\n\ +The default is t, which means that text is invisible\n\ +if it has a non-nil `invisible' property.\n\ +If the value is a list, a text character is invisible if its `invisible'\n\ +property is an element in that list.\n\ +If an element is a cons cell of the for (PROP . ELLIPSIS),\n\ +then characters with property value PROP is invisible,\n\ +and they have an ellipsis as well if ELLIPSIS is non-nil."); + DEFVAR_LISP ("transient-mark-mode", &Vtransient_mark_mode, "*Non-nil means deactivate the mark when the buffer contents change."); Vtransient_mark_mode = Qnil; |