# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 972561558 0
# Node ID 9e6ba99c8d539638666201ca97f5f9594354199f
# Parent  9bffa6f30b0b0dbf73a3da449efb67bc0e3abf7c
(Fdelete_frame): Run delete-frame-hook.

diff -r 9bffa6f30b0b -r 9e6ba99c8d53 src/frame.c
--- a/src/frame.c	Thu Oct 26 09:39:10 2000 +0000
+++ b/src/frame.c	Thu Oct 26 11:59:18 2000 +0000
@@ -1169,6 +1169,14 @@
     error ("Attempt to delete the only frame");
 #endif
 
+  if (!NILP (Vrun_hooks))
+    {
+      Lisp_Object args[2];
+      args[0] = intern ("delete-frame-hook");
+      args[1] = frame;
+      Frun_hook_with_args (2, args);
+    }
+
   /* Does this frame have a minibuffer, and is it the surrogate
      minibuffer for any other frame?  */
   if (FRAME_HAS_MINIBUF_P (XFRAME (frame)))