From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 7 Dec 2020 16:26:49 +0000 (+0100)
Subject: Make previous Fkill_emacs change safer
X-Git-Tag: emacs-28.0.90~4871
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8b1693f689bff0ccacdd3ec8326a0860b8bc604e;p=emacs.git

Make previous Fkill_emacs change safer

* src/emacs.c (Fkill_emacs): Don't run `kill-emacs-hook' if it's nil.
---

diff --git a/src/emacs.c b/src/emacs.c
index fe09c446c38..2a32083ba15 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -2365,10 +2365,13 @@ all of which are called before Emacs is actually killed.  */
   /* Fsignal calls emacs_abort () if it sees that waiting_for_input is
      set.  */
   waiting_for_input = 0;
-  if (noninteractive)
-    safe_run_hooks (Qkill_emacs_hook);
-  else
-    call1 (Qrun_hook_query_error_with_timeout, Qkill_emacs_hook);
+  if (!NILP (find_symbol_value (Qkill_emacs_hook)))
+    {
+      if (noninteractive)
+	safe_run_hooks (Qkill_emacs_hook);
+      else
+	call1 (Qrun_hook_query_error_with_timeout, Qkill_emacs_hook);
+    }
 
 #ifdef HAVE_X_WINDOWS
   /* Transfer any clipboards we own to the clipboard manager.  */