(save_excursion_restore): Don't call Vrun_hooks if nil.

9fed2b18 · Richard M. Stallman · fd186f07 · 9fed2b18
Commit 9fed2b18 authored Mar 05, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 4 deletions

src/editfns.c src/editfns.c +7 -4

No files found.
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -324,10 +324,13 @@ save_excursion_restore (info)

  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;
 }