(dired-pop-to-buffer): Don't split windows horizontally. (Bug#1806)

This commit is contained in:
Martin Rudalics 2009-01-07 09:58:23 +00:00
parent 79a972175a
commit 7f0995a11b
2 changed files with 9 additions and 2 deletions

View file

@ -1,3 +1,8 @@
2009-01-07 Martin Rudalics <rudalics@gmx.at>
* dired.el (dired-pop-to-buffer): Don't split windows
horizontally. (Bug#1806)
2009-01-07 Stefan Monnier <monnier@iro.umontreal.ca>
* tar-mode.el (tar-mode, tar-mode-write-contents)

View file

@ -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