(handle-delete-frame): New function.

diff --git a/lisp/frame.el b/lisp/frame.el
index f71a0a22e53bc2d7c6b1eeb4251785511d556451..39cb483acc3e5bcda63b109142491a8ac494dfb3 100644 (file)
--- 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))))
 \f
 ;;;; Arrangement of frames at startup