289 |
{ |
{ |
290 |
extern Lisp_Object Vmark_even_if_inactive; /* Defined in callint.c. */ |
extern Lisp_Object Vmark_even_if_inactive; /* Defined in callint.c. */ |
291 |
Lisp_Object m; |
Lisp_Object m; |
292 |
|
|
293 |
if (!NILP (Vtransient_mark_mode) |
if (!NILP (Vtransient_mark_mode) |
294 |
&& NILP (Vmark_even_if_inactive) |
&& NILP (Vmark_even_if_inactive) |
295 |
&& NILP (current_buffer->mark_active)) |
&& NILP (current_buffer->mark_active)) |
296 |
Fsignal (Qmark_inactive, Qnil); |
Fsignal (Qmark_inactive, Qnil); |
297 |
|
|
298 |
m = Fmarker_position (current_buffer->mark); |
m = Fmarker_position (current_buffer->mark); |
299 |
if (NILP (m)) |
if (NILP (m)) |
300 |
error ("The mark is not set now, so there is no region"); |
error ("The mark is not set now, so there is no region"); |
301 |
|
|
302 |
if ((PT < XFASTINT (m)) == beginningp) |
if ((PT < XFASTINT (m)) == beginningp) |
303 |
m = make_number (PT); |
m = make_number (PT); |
304 |
return m; |
return m; |
456 |
} |
} |
457 |
} |
} |
458 |
} |
} |
459 |
|
|
460 |
} |
} |
461 |
|
|
462 |
{ /* Now check the text-properties. */ |
{ /* Now check the text-properties. */ |
881 |
/* visible */ |
/* visible */ |
882 |
info = XCDR (info); |
info = XCDR (info); |
883 |
visible_p = !NILP (XCAR (info)); |
visible_p = !NILP (XCAR (info)); |
884 |
|
|
885 |
#if 0 /* We used to make the current buffer visible in the selected window |
#if 0 /* We used to make the current buffer visible in the selected window |
886 |
if that was true previously. That avoids some anomalies. |
if that was true previously. That avoids some anomalies. |
887 |
But it creates others, and it wasn't documented, and it is simpler |
But it creates others, and it wasn't documented, and it is simpler |
2952 |
clip_to_bounds (beg->charpos, pt, end->charpos), |
clip_to_bounds (beg->charpos, pt, end->charpos), |
2953 |
clip_to_bounds (beg->bytepos, BUF_PT_BYTE (buf), |
clip_to_bounds (beg->bytepos, BUF_PT_BYTE (buf), |
2954 |
end->bytepos)); |
end->bytepos)); |
2955 |
|
|
2956 |
buf->clip_changed = 1; /* Remember that the narrowing changed. */ |
buf->clip_changed = 1; /* Remember that the narrowing changed. */ |
2957 |
} |
} |
2958 |
} |
} |