aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/buffer.c25
1 files changed, 12 insertions, 13 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 008dedde462..d43b3d19c7b 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -2482,12 +2482,17 @@ DEFUN ("overlayp", Foverlayp, Soverlayp, 1, 1, 0,
2482 return (OVERLAYP (object) ? Qt : Qnil); 2482 return (OVERLAYP (object) ? Qt : Qnil);
2483} 2483}
2484 2484
2485DEFUN ("make-overlay", Fmake_overlay, Smake_overlay, 2, 3, 0, 2485DEFUN ("make-overlay", Fmake_overlay, Smake_overlay, 2, 5, 0,
2486 "Create a new overlay with range BEG to END in BUFFER.\n\ 2486 "Create a new overlay with range BEG to END in BUFFER.\n\
2487If omitted, BUFFER defaults to the current buffer.\n\ 2487If omitted, BUFFER defaults to the current buffer.\n\
2488BEG and END may be integers or markers.") 2488BEG and END may be integers or markers.\n\
2489 (beg, end, buffer) 2489The fourth arg FRONT-ADVANCE, if non-nil, makes the\n\
2490front delimiter advance when text is inserted there.\n\
2491The fifth arg REAR-ADVANCE, if non-nil, makes the\n\
2492rear delimiter advance when text is inserted there.")
2493 (beg, end, buffer, front_advance, rear_advance)
2490 Lisp_Object beg, end, buffer; 2494 Lisp_Object beg, end, buffer;
2495 Lisp_Object front_advance, rear_advance;
2491{ 2496{
2492 Lisp_Object overlay; 2497 Lisp_Object overlay;
2493 struct buffer *b; 2498 struct buffer *b;
@@ -2517,7 +2522,10 @@ BEG and END may be integers or markers.")
2517 beg = Fset_marker (Fmake_marker (), beg, buffer); 2522 beg = Fset_marker (Fmake_marker (), beg, buffer);
2518 end = Fset_marker (Fmake_marker (), end, buffer); 2523 end = Fset_marker (Fmake_marker (), end, buffer);
2519 2524
2520 XMARKER (end)->insertion_type = 1; 2525 if (!NILP (front_advance))
2526 XMARKER (beg)->insertion_type = 1;
2527 if (!NILP (rear_advance))
2528 XMARKER (end)->insertion_type = 1;
2521 2529
2522 overlay = allocate_misc (); 2530 overlay = allocate_misc ();
2523 XMISCTYPE (overlay) = Lisp_Misc_Overlay; 2531 XMISCTYPE (overlay) = Lisp_Misc_Overlay;
@@ -3906,15 +3914,6 @@ functions; it should only affect their performance.");
3906Formats are defined by `format-alist'. This variable is\n\ 3914Formats are defined by `format-alist'. This variable is\n\
3907set when a file is visited. Automatically local in all buffers."); 3915set when a file is visited. Automatically local in all buffers.");
3908 3916
3909 DEFVAR_PER_BUFFER ("buffer-redisplay-end-trigger",
3910 &current_buffer->redisplay_end_trigger, Qnil,
3911 "Trigger point for running `redisplay-end-trigger-hook'.\n\
3912This variable is always local in every buffer.\n\
3913If redisplay in the buffer reaches a position larger than the\n\
3914value of `buffer-redisplay-end-trigger', then the hook is run\n\
3915after first setting `buffer-redisplay-end-trigger' to nil.\n\
3916If `buffer-redisplay-end-trigger' is nil, the hook is never run.");
3917
3918 DEFVAR_PER_BUFFER ("buffer-invisibility-spec", 3917 DEFVAR_PER_BUFFER ("buffer-invisibility-spec",
3919 &current_buffer->invisibility_spec, Qnil, 3918 &current_buffer->invisibility_spec, Qnil,
3920 "Invisibility spec of this buffer.\n\ 3919 "Invisibility spec of this buffer.\n\