From 6c5b90af8664ac6b44c3e5ed1210ac175e0b8daf Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 26 Oct 2000 11:59:45 +0000 Subject: [PATCH] (Fdelete_frame): Run delete-frame-hook. --- src/ChangeLog | 4 ++++ src/frame.c | 8 ++++++++ 2 files changed, 12 insertions(+) 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 + + * frame.c (Fdelete_frame): Run delete-frame-hook. + 2000-10-26 Kenichi Handa * 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))) -- 2.39.2