changeset 103234:5f8eb7ae3135

(dired-pop-to-buffer): Fix last fix.
author Martin Rudalics <rudalics@gmx.at>
date Fri, 15 May 2009 18:14:03 +0000
parents 8cc53b11f921
children 304eb5ff2a17
files lisp/dired.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired.el	Fri May 15 15:00:32 2009 +0000
+++ b/lisp/dired.el	Fri May 15 18:14:03 2009 +0000
@@ -2688,7 +2688,8 @@
   "Pop up buffer BUF in a way suitable for Dired."
   (let ((split-window-preferred-function
 	 (lambda (window)
-	   (or (and (window-splittable-p (selected-window))
+	   (or (and (let ((split-height-threshold 0))
+		      (window-splittable-p (selected-window)))
 		    ;; Try to split the selected window vertically if
 		    ;; that's possible.  (Bug#1806)
 		    (split-window-vertically))