mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 08:00:48 -08:00
Code Issues Projects Releases Wiki Activity

(delete-other-frames): New function.

Browse source 
(toplevel): Bind it to C-x 5 1.
This commit is contained in:
Gerd Moellmann 2000-01-28 13:22:46 +00:00
parent 35384f06c3
commit 154a757eb9
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/frame.el
View file

@ -788,6 +788,15 @@ This function is provided only for compatibility with Emacs 18; new code
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 @@ itself as a pre-command hook."
;;;; 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)