From 7f0995a11bf1b60955b06c48855c51edad1f0f2e Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Wed, 7 Jan 2009 09:58:23 +0000 Subject: [PATCH] (dired-pop-to-buffer): Don't split windows horizontally. (Bug#1806) --- lisp/ChangeLog | 5 +++++ lisp/dired.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 398509369a4..347e8c0c599 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-01-07 Martin Rudalics + + * dired.el (dired-pop-to-buffer): Don't split windows + horizontally. (Bug#1806) + 2009-01-07 Stefan Monnier * tar-mode.el (tar-mode, tar-mode-write-contents) diff --git a/lisp/dired.el b/lisp/dired.el index 7613a3b8af0..3f177eaf6f7 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2681,8 +2681,10 @@ name, or the marker and a count of marked files." (format "%c [%d files]" dired-marker-char count))))) (defun dired-pop-to-buffer (buf) - ;; Pop up buffer BUF. - (pop-to-buffer (get-buffer-create buf)) + "Pop up buffer BUF in a way suitable for Dired." + ;; Don't split window horizontally. (Bug#1806) + (let (split-width-threshold) + (pop-to-buffer (get-buffer-create buf))) ;; If dired-shrink-to-fit is t, make its window fit its contents. (when dired-shrink-to-fit ;; Try to not delete window when we want to display less than -- 2.11.4.GIT