Mercurial > emacs

changeset 4039:77cb08d1c4a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(check_mark): Don't check mark-active unless in transient-mark-mode. For inactive mark, signal mark-inactive instead of error with a message.
author Roland McGrath <roland@gnu.org>
date Thu, 08 Jul 1993 21:43:11 +0000
parents 03a4c3912c13
children d06d7295d3eb
files src/callint.c
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/callint.c	Thu Jul 08 21:36:04 1993 +0000
+++ b/src/callint.c	Thu Jul 08 21:43:11 1993 +0000
@@ -145,8 +145,9 @@
   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);
 }