# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 780814139 0
# Node ID df2f1773aa06902d333d9819cb1c15cb542b8e2e
# Parent  900fdf19446acfb8a7c5c3183be93b55fca26476
(handle-delete-frame): New function.

diff -r 900fdf19446a -r df2f1773aa06 lisp/frame.el
--- a/lisp/frame.el	Wed Sep 28 22:38:04 1994 +0000
+++ b/lisp/frame.el	Thu Sep 29 04:48:59 1994 +0000
@@ -105,6 +105,21 @@
 	  (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