Commit 6c5b90af authored by Gerd Moellmann's avatar Gerd Moellmann

(Fdelete_frame): Run delete-frame-hook.

parent e9f63196
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
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment