diff options
| author | Richard M. Stallman | 1994-03-05 20:31:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-03-05 20:31:10 +0000 |
| commit | fd186f07f11b4d2e798eec40edf784fa97cebfb7 (patch) | |
| tree | 52518a6d4da83aeabdf6654337221b4c7567cde4 /src/buffer.c | |
| parent | 8746da9580a4465ae1e5e038f4afca7763458ea1 (diff) | |
| download | emacs-fd186f07f11b4d2e798eec40edf784fa97cebfb7.tar.gz emacs-fd186f07f11b4d2e798eec40edf784fa97cebfb7.zip | |
(Fkill_buffer, Fkill_all_local_variables):
Don't call Vrun_hooks if it is nil.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/buffer.c b/src/buffer.c index 15ed613efd0..007b095a9a8 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -753,7 +753,8 @@ with `delete-process'.") | |||
| 753 | } | 753 | } |
| 754 | 754 | ||
| 755 | /* Then run the hooks. */ | 755 | /* Then run the hooks. */ |
| 756 | call1 (Vrun_hooks, Qkill_buffer_hook); | 756 | if (!NILP (Vrun_hooks)) |
| 757 | call1 (Vrun_hooks, Qkill_buffer_hook); | ||
| 757 | unbind_to (count, Qnil); | 758 | unbind_to (count, Qnil); |
| 758 | } | 759 | } |
| 759 | 760 | ||
| @@ -1211,7 +1212,8 @@ a non-nil `permanent-local' property are not eliminated by this function.") | |||
| 1211 | register Lisp_Object alist, sym, tem; | 1212 | register Lisp_Object alist, sym, tem; |
| 1212 | Lisp_Object oalist; | 1213 | Lisp_Object oalist; |
| 1213 | 1214 | ||
| 1214 | call1 (Vrun_hooks, intern ("change-major-mode-hook")); | 1215 | if (!NILP (Vrun_hooks)) |
| 1216 | call1 (Vrun_hooks, intern ("change-major-mode-hook")); | ||
| 1215 | oalist = current_buffer->local_var_alist; | 1217 | oalist = current_buffer->local_var_alist; |
| 1216 | 1218 | ||
| 1217 | /* Make sure no local variables remain set up with this buffer | 1219 | /* Make sure no local variables remain set up with this buffer |