changeset 13262:fe65b6bde340

(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.

--- a/src/buffer.c	Sat Oct 21 22:23:48 1995 +0000
+++ b/src/buffer.c	Sat Oct 21 23:01:11 1995 +0000
@@ -456,6 +456,7 @@
   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 @@
   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 @@
 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",
+		     &current_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",
 		     &current_buffer->invisibility_spec, Qnil,
   "Invisibility spec of this buffer.\n\