Mercurial > emacs

diff src/editfns.c @ 6206:67c608b0e2f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(save_excursion_restore): Don't call Vrun_hooks if nil.
author Richard M. Stallman <rms@gnu.org>
date Sat, 05 Mar 1994 20:32:35 +0000
parents 11c1e1696fe3
children d0f6a386b7cb
line wrap: on
line diff
--- a/src/editfns.c	Sat Mar 05 20:31:10 1994 +0000
+++ b/src/editfns.c	Sat Mar 05 20:32:35 1994 +0000
@@ -324,10 +324,13 @@
 
   tem1 = current_buffer->mark_active;
   current_buffer->mark_active = Fcdr (tem);
-  if (! NILP (current_buffer->mark_active))
-    call1 (Vrun_hooks, intern ("activate-mark-hook"));
-  else if (! NILP (tem1))
-    call1 (Vrun_hooks, intern ("deactivate-mark-hook"));
+  if (!NILP (Vrun_hooks))
+    {
+      if (! NILP (current_buffer->mark_active))
+	call1 (Vrun_hooks, intern ("activate-mark-hook"));
+      else if (! NILP (tem1))
+	call1 (Vrun_hooks, intern ("deactivate-mark-hook"));
+    }
   return Qnil;
 }