From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 26 Oct 2000 11:59:45 +0000 (+0000)
Subject: (Fdelete_frame): Run delete-frame-hook.
X-Git-Tag: emacs-pretest-21.0.90~554
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c5b90af8664ac6b44c3e5ed1210ac175e0b8daf;p=emacs.git

(Fdelete_frame): Run delete-frame-hook.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index a191eb5e6db..9ad8f78b389 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-26  Gerd Moellmann  <gerd@gnu.org>
+
+	* frame.c (Fdelete_frame): Run delete-frame-hook.
+
 2000-10-26  Kenichi Handa  <handa@etl.go.jp>
 
 	* coding.c (decode_coding): Fix previous change (check also
diff --git a/src/frame.c b/src/frame.c
index 403261ed326..0233b171e24 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1169,6 +1169,14 @@ but if the second optional argument FORCE is non-nil, you may do so.")
     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)))