Commit 6497d2d8 authored by Roland McGrath's avatar Roland McGrath
Browse files

(check_mark): Don't check mark-active unless in transient-mark-mode.

For inactive mark, signal mark-inactive instead of error with a message.
parent c9dd14e1
......@@ -145,8 +145,9 @@ check_mark ()
Lisp_Object tem = Fmarker_buffer (current_buffer->mark);
if (NILP (tem) || (XBUFFER (tem) != current_buffer))
error ("The mark is not set now");
if (NILP (current_buffer->mark_active) && NILP (Vmark_even_if_inactive))
error ("The mark is not active now");
if (!NILP (Vtransient_mark_mode) && NILP (Vmark_even_if_inactive)
&& NILP (current_buffer->mark_active))
Fsignal (Qmark_inactive, Qnil);
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