From 924be53af1e716fabcec624b550631e1d926f792 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Sep 1994 04:48:59 +0000 Subject: [PATCH] (handle-delete-frame): New function. --- lisp/frame.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/lisp/frame.el b/lisp/frame.el index f71a0a22e53..39cb483acc3 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -105,6 +105,21 @@ These supersede the values given in `default-frame-alist'.") (frame-selected-window frame)))))) (setq special-display-function 'special-display-popup-frame) + +;; Handle delete-frame events from the X server. +(defun handle-delete-frame (event) + (interactive "e") + (let ((frame (posn-window (event-start event))) + (i 0) + (tail (frame-list))) + (while tail + (and (frame-visible-p (car tail)) + (not (eq (car tail) frame)) + (setq i (1+ i))) + (setq tail (cdr tail))) + (if (> i 0) + (delete-frame frame t) + (kill-emacs)))) ;;;; Arrangement of frames at startup -- 2.39.5