procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Vmark_even_if_inactive): New var, with Lisp variable.

Browse source 
(check_mark): Use it.
This commit is contained in:
Richard M. Stallman 1993-07-04 04:55:03 +00:00
parent b45d89b0ef
commit 9f315aebf6
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/callint.c
View file

@ -35,6 +35,10 @@ Lisp_Object Vcommand_history;
Lisp_Object Vcommand_debug_status, Qcommand_debug_status;
Lisp_Object Qenable_recursive_minibuffers;
/* Non-nil means treat the mark as active
even if mark_active is 0. */
Lisp_Object Vmark_even_if_inactive;
Lisp_Object Qlist;
Lisp_Object preserved_fns;
@ -141,7 +145,7 @@ 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))
if (NILP (current_buffer->mark_active) && NILP (Vmark_even_if_inactive))
error ("The mark is not active now");
}
@ -657,6 +661,14 @@ Bound each time `call-interactively' is called;\n\
may be set by the debugger as a reminder for itself.");
Vcommand_debug_status = Qnil;
DEFVAR_LISP ("Vmark-even-if-inactive", &Vmark_even_if_inactive,
"*Non-nil means you can use the mark even when inactive.\n\
This option makes a difference in Transient Mark mode.\n\
When the option is non-nil, deactivation of the mark\n\
turns off region highlighting, but commands that use the mark\n\
behave as if the mark were still active.");
Vmark_even_if_inactive = Qnil;
defsubr (&Sinteractive);
defsubr (&Scall_interactively);
defsubr (&Sprefix_numeric_value);