aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/buffer.c')
-rw-r--r--src/buffer.c24
1 files changed, 11 insertions, 13 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 1495bd65de7..c811890aefe 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -3834,7 +3834,8 @@ for the front of the overlay advance when text is inserted there
3834The fifth arg REAR-ADVANCE, if non-nil, makes the marker 3834The fifth arg REAR-ADVANCE, if non-nil, makes the marker
3835for the rear of the overlay advance when text is inserted there 3835for the rear of the overlay advance when text is inserted there
3836\(which means the text *is* included in the overlay). */) 3836\(which means the text *is* included in the overlay). */)
3837 (Lisp_Object beg, Lisp_Object end, Lisp_Object buffer, Lisp_Object front_advance, Lisp_Object rear_advance) 3837 (Lisp_Object beg, Lisp_Object end, Lisp_Object buffer,
3838 Lisp_Object front_advance, Lisp_Object rear_advance)
3838{ 3839{
3839 Lisp_Object overlay; 3840 Lisp_Object overlay;
3840 struct buffer *b; 3841 struct buffer *b;
@@ -3843,12 +3844,11 @@ for the rear of the overlay advance when text is inserted there
3843 XSETBUFFER (buffer, current_buffer); 3844 XSETBUFFER (buffer, current_buffer);
3844 else 3845 else
3845 CHECK_BUFFER (buffer); 3846 CHECK_BUFFER (buffer);
3846 if (MARKERP (beg) 3847
3847 && ! EQ (Fmarker_buffer (beg), buffer)) 3848 if (MARKERP (beg) && !EQ (Fmarker_buffer (beg), buffer))
3848 error ("Marker points into wrong buffer"); 3849 signal_error ("Marker points into wrong buffer", beg);
3849 if (MARKERP (end) 3850 if (MARKERP (end) && !EQ (Fmarker_buffer (end), buffer))
3850 && ! EQ (Fmarker_buffer (end), buffer)) 3851 signal_error ("Marker points into wrong buffer", end);
3851 error ("Marker points into wrong buffer");
3852 3852
3853 CHECK_NUMBER_COERCE_MARKER (beg); 3853 CHECK_NUMBER_COERCE_MARKER (beg);
3854 CHECK_NUMBER_COERCE_MARKER (end); 3854 CHECK_NUMBER_COERCE_MARKER (end);
@@ -3974,12 +3974,10 @@ buffer. */)
3974 if (NILP (Fbuffer_live_p (buffer))) 3974 if (NILP (Fbuffer_live_p (buffer)))
3975 error ("Attempt to move overlay to a dead buffer"); 3975 error ("Attempt to move overlay to a dead buffer");
3976 3976
3977 if (MARKERP (beg) 3977 if (MARKERP (beg) && !EQ (Fmarker_buffer (beg), buffer))
3978 && ! EQ (Fmarker_buffer (beg), buffer)) 3978 signal_error ("Marker points into wrong buffer", beg);
3979 error ("Marker points into wrong buffer"); 3979 if (MARKERP (end) && !EQ (Fmarker_buffer (end), buffer))
3980 if (MARKERP (end) 3980 signal_error ("Marker points into wrong buffer", end);
3981 && ! EQ (Fmarker_buffer (end), buffer))
3982 error ("Marker points into wrong buffer");
3983 3981
3984 CHECK_NUMBER_COERCE_MARKER (beg); 3982 CHECK_NUMBER_COERCE_MARKER (beg);
3985 CHECK_NUMBER_COERCE_MARKER (end); 3983 CHECK_NUMBER_COERCE_MARKER (end);