Mercurial > emacs
changeset 100939:09ea3896dab5
(dired-pop-to-buffer): Don't split windows horizontally. (Bug#1806)
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Wed, 07 Jan 2009 09:58:23 +0000 |
| parents | 329821ac2e21 |
| children | 24b031f24662 |
| files | lisp/ChangeLog lisp/dired.el |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jan 07 09:34:18 2009 +0000 +++ b/lisp/ChangeLog Wed Jan 07 09:58:23 2009 +0000 @@ -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)
--- a/lisp/dired.el Wed Jan 07 09:34:18 2009 +0000 +++ b/lisp/dired.el Wed Jan 07 09:58:23 2009 +0000 @@ -2681,8 +2681,10 @@ (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