# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 949065766 0
# Node ID c64b8825af55271bfec996ddf92109a6093a80c9
# Parent  483c021bf376e343732d5f821bfe549385f97d4e
(delete-other-frames): New function.
(toplevel): Bind it to C-x 5 1.

diff -r 483c021bf376 -r c64b8825af55 lisp/frame.el
--- a/lisp/frame.el	Fri Jan 28 12:53:52 2000 +0000
+++ b/lisp/frame.el	Fri Jan 28 13:22:46 2000 +0000
@@ -788,6 +788,15 @@
 should use `set-frame-height' instead."
   (set-frame-height (selected-frame) lines pretend))
 
+(defun delete-other-frames (&optional frame)
+  "Delete all frames except FRAME.
+FRAME nil or omitted means delete all frames except the selected frame."
+  (interactive)
+  (unless frame
+    (setq frame (selected-frame)))
+  (mapcar 'delete-frame (delq frame (frame-list))))
+
+
 (make-obsolete 'screen-height 'frame-height)
 (make-obsolete 'screen-width  'frame-width)
 (make-obsolete 'set-screen-width 'set-frame-width)
@@ -916,6 +925,7 @@
 ;;;; Key bindings
 
 (define-key ctl-x-5-map "2" 'make-frame-command)
+(define-key ctl-x-5-map "1" 'delete-other-frames)
 (define-key ctl-x-5-map "0" 'delete-frame)
 (define-key ctl-x-5-map "o" 'other-frame)