(Fkill_buffer, Fkill_all_local_variables):

Don't call Vrun_hooks if it is nil.

(Fkill_buffer, Fkill_all_local_variables):
Don't call Vrun_hooks if it is nil.
fd186f07 · Richard M. Stallman · 8746da95 · fd186f07
Commit fd186f07 authored Mar 05, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

src/buffer.c src/buffer.c +4 -2

No files found.
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -753,7 +753,8 @@ with `delete-process'.")
      }

    /* Then run the hooks.  */
-    call1 (Vrun_hooks, Qkill_buffer_hook);
+    if (!NILP (Vrun_hooks))
+      call1 (Vrun_hooks, Qkill_buffer_hook);
    unbind_to (count, Qnil);
  }

@@ -1211,7 +1212,8 @@ a non-nil `permanent-local' property are not eliminated by this function.")
  register Lisp_Object alist, sym, tem;
  Lisp_Object oalist;

-  call1 (Vrun_hooks, intern ("change-major-mode-hook"));
+  if (!NILP (Vrun_hooks))
+    call1 (Vrun_hooks, intern ("change-major-mode-hook"));
  oalist = current_buffer->local_var_alist;

  /* Make sure no local variables remain set up with this buffer