Commit abdb9b83 authored by Masatake YAMATO's avatar Masatake YAMATO
Browse files

* insdel.c (adjust_markers_for_insert): Call fix_start_end_in_overlays.

* buffer.c (fix_start_end_in_overlays): Rename fix_overlays_in_range.
* editfns.c (Ftranspose_regions): Likewise.
* lisp.h (top_level): Likewise.
parent abcdd45a
2004-03-26 Masatake YAMATO <jet@gyve.org>
* insdel.c (adjust_markers_for_insert): Call
fix_start_end_in_overlays.
* buffer.c (fix_start_end_in_overlays): Rename
fix_overlays_in_range.
* editfns.c (Ftranspose_regions): Likewise.
* lisp.h (top_level): Likewise.
2004-03-20 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* xterm.c (handle_one_xevent): Do not pass key press events to
......
......@@ -3293,7 +3293,7 @@ adjust_overlays_for_delete (pos, length)
If so, we'll reverse the endpoints. Can you think of anything
better to do in this situation? */
void
fix_overlays_in_range (start, end)
fix_start_end_in_overlays (start, end)
register int start, end;
{
Lisp_Object overlay;
......
......@@ -4157,7 +4157,7 @@ Transposing beyond buffer boundaries is an error. */)
transpose_markers (start1, end1, start2, end2,
start1_byte, start1_byte + len1_byte,
start2_byte, start2_byte + len2_byte);
fix_overlays_in_range (start1, end2);
fix_start_end_in_overlays (start1, end2);
}
return Qnil;
......
......@@ -441,9 +441,13 @@ adjust_markers_for_insert (from, from_byte, to, to_byte, before_markers)
}
/* Adjusting only markers whose insertion-type is t may result in
disordered overlays in the slot `overlays_before'. */
- disordered start and end in overlays, and
- disordered overlays in the slot `overlays_before' of current_buffer. */
if (adjusted)
fix_overlays_before (current_buffer, from, to);
{
fix_start_end_in_overlays(from, to);
fix_overlays_before (current_buffer, from, to);
}
}
/* Adjust point for an insertion of NBYTES bytes, which are NCHARS characters.
......
......@@ -2656,7 +2656,7 @@ EXFUN (Foverlay_start, 1);
EXFUN (Foverlay_end, 1);
extern void adjust_overlays_for_insert P_ ((EMACS_INT, EMACS_INT));
extern void adjust_overlays_for_delete P_ ((EMACS_INT, EMACS_INT));
extern void fix_overlays_in_range P_ ((int, int));
extern void fix_start_end_in_overlays P_ ((int, int));
extern void report_overlay_modification P_ ((Lisp_Object, Lisp_Object, int,
Lisp_Object, Lisp_Object, Lisp_Object));
extern int overlay_touches_p P_ ((int));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment