diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/window.el | 15 |
2 files changed, 19 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index be022bee3cf..415981c8e13 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-05-05 Sam Steingold <sds@gnu.org> + + * window.el (delete-other-windows-vertically): New function. + 2008-05-05 Stefan Monnier <monnier@iro.umontreal.ca> * dired.el (dired-read-dir-and-switches): diff --git a/lisp/window.el b/lisp/window.el index eab0f2b27fc..056ce84085a 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -1095,6 +1095,21 @@ active. This function is run by `mouse-autoselect-window-timer'." (run-hooks 'mouse-leave-buffer-hook)) (select-window window)))) +(defun delete-other-windows-vertically (&optional window) + "Delete the windows in the same column with WINDOW, but not WINDOW itself. +This may be a useful alternative binding for \\[delete-other-windows] + if you often split windows horizontally." + (interactive) + (let* ((window (or window (selected-window))) + (edges (window-edges window)) + (w window) delenda) + (while (not (eq (setq w (next-window w 1)) window)) + (let ((e (window-edges w))) + (when (and (= (car e) (car edges)) + (= (caddr e) (caddr edges))) + (push w delenda)))) + (mapc 'delete-window delenda))) + (define-key ctl-x-map "2" 'split-window-vertically) (define-key ctl-x-map "3" 'split-window-horizontally) (define-key ctl-x-map "}" 'enlarge-window-horizontally) |