From: Sam Steingold <sds@gnu.org>
Date: Mon, 5 May 2008 20:12:24 +0000 (+0000)
Subject: (delete-other-windows-vertically): New function.
X-Git-Tag: emacs-pretest-23.0.90~5801
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ecc0b678728d3affd3f376dfefa19e2e70c30c4;p=emacs.git

(delete-other-windows-vertically): New function.
---

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)