diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-10-21 23:01:11 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-10-21 23:01:11 +0000 |
commit | 0b96571288b52bb68c565d25c657990d266e5015 (patch) | |
tree | 322e36086c90c161b6e08eab353c8816ed388045 /src/buffer.c | |
parent | 5cf19f897c791f0d7f77ce97e0534ca83057039a (diff) | |
download | emacs-0b96571288b52bb68c565d25c657990d266e5015.tar.gz |
(reset_buffer): Initialize redisplay_end_trigger slot.
(init_buffer_once): Mark redisplay_end_trigger always local.
Also fix previous change.
(syms_of_buffer): Set up Lisp var buffer-redisplay-end-trigger.
Diffstat (limited to 'src/buffer.c')
-rw-r--r-- | src/buffer.c | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/buffer.c b/src/buffer.c index 3d73dd722c2..13861a8edbb 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -456,6 +456,7 @@ reset_buffer (b) b->mark_active = Qnil; b->point_before_scroll = Qnil; b->file_format = Qnil; + b->redisplay_end_trigger = Qnil; } /* Reset buffer B's local variables info. @@ -3354,7 +3355,8 @@ init_buffer_once () 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.file_format, -1); + XSETINT (buffer_local_flags.file_format, -1); + XSETINT (buffer_local_flags.redisplay_end_trigger, -1); XSETFASTINT (buffer_local_flags.mode_line_format, 1); XSETFASTINT (buffer_local_flags.abbrev_mode, 2); @@ -3893,6 +3895,15 @@ functions; it should only affect their performance."); Formats are defined by `format-alist'. This variable is\n\ set when a file is visited. Automatically local in all buffers."); + DEFVAR_PER_BUFFER ("buffer-redisplay-end-trigger", + ¤t_buffer->redisplay_end_trigger, Qnil, + "Trigger point for running `redisplay-end-trigger-hook'.\n\ +This variable is always local in every buffer.\n\ +If redisplay in the buffer reaches a position larger than the\n\ +value of `buffer-redisplay-end-trigger', then the hook is run\n\ +after first setting `buffer-redisplay-end-trigger' to nil.\n\ +If `buffer-redisplay-end-trigger' is nil, the hook is never run."); + DEFVAR_PER_BUFFER ("buffer-invisibility-spec", ¤t_buffer->invisibility_spec, Qnil, "Invisibility spec of this buffer.\n\ |