andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(dired-pop-to-buffer): Try to make this behave the

Browse source 
Emacs 22 way (Bug#1806).
This commit is contained in:
Martin Rudalics 2009-05-15 15:00:32 +00:00
parent a96da3ab42
commit 19998f14b6
2 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-05-15 Martin Rudalics <rudalics@gmx.at>
* dired.el (dired-pop-to-buffer): Try to make this behave the
Emacs 22 way (Bug#1806).
2009-05-14 Chong Yidong <cyd@stupidchicken.com>
* frame.el (minibuffer-frame-alist): Doc fix (Bug#3276).

10
lisp/dired.el
View file

@ -2686,8 +2686,14 @@ name, or the marker and a count of marked files."
(defun dired-pop-to-buffer (buf)
"Pop up buffer BUF in a way suitable for Dired."
;; Don't split window horizontally. (Bug#1806)
(let (split-width-threshold)
(let ((split-window-preferred-function
(lambda (window)
(or (and (window-splittable-p (selected-window))
;; Try to split the selected window vertically if
;; that's possible. (Bug#1806)
(split-window-vertically))
;; Otherwise, try to split WINDOW sensibly.
(split-window-sensibly window)))))
(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