From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 4 Jul 1993 04:55:03 +0000 (+0000)
Subject: (Vmark_even_if_inactive): New var, with Lisp variable.
X-Git-Tag: emacs-19.34~11876
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f315aebf604027e6490856f5149336ba5c84a50;p=emacs.git

(Vmark_even_if_inactive): New var, with Lisp variable.
(check_mark): Use it.
---

diff --git a/src/callint.c b/src/callint.c
index 0528fe78f2d..1ffd839bcb3 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -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);