Mercurial > emacs
changeset 3975:718280a1ba74
(Vmark_even_if_inactive): New var, with Lisp variable.
(check_mark): Use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 04 Jul 1993 04:55:03 +0000 |
| parents | cd0cc37be860 |
| children | 87addb9e55f8 |
| files | src/callint.c |
| diffstat | 1 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/callint.c Sun Jul 04 04:53:58 1993 +0000 +++ b/src/callint.c Sun Jul 04 04:55:03 1993 +0000 @@ -35,6 +35,10 @@ 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 @@ 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 @@ 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);