# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1229015977 0
# Node ID 4150ab3a5845032ed41f9de0657b585140abee28
# Parent  ecf3d51be3b31d8ad2a7559e1061b20fed7c6a6e
(dired-pop-to-buffer): Call with min-height arg 1 to
make sure that small buffers get shown.

diff -r ecf3d51be3b3 -r 4150ab3a5845 lisp/dired.el
--- a/lisp/dired.el	Thu Dec 11 17:17:44 2008 +0000
+++ b/lisp/dired.el	Thu Dec 11 17:19:37 2008 +0000
@@ -2681,7 +2681,9 @@
   (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
-    (fit-window-to-buffer (get-buffer-window buf))))
+    ;; Try to not delete window when we want to display less than
+    ;; `window-min-height' lines.
+    (fit-window-to-buffer (get-buffer-window buf) nil 1)))
 
 (defcustom dired-no-confirm nil
   "A list of symbols for commands Dired should not confirm.