From 34f10d412a96624716e83cb5b007dec17c80ee89 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Mon, 27 Aug 2012 11:05:55 +0200 Subject: [PATCH] In dired-pop-to-buffer make window start at beginning of buffer (Bug#12281). * dired.el (dired-pop-to-buffer): Make window start at beginning of buffer (Bug#12281). --- lisp/ChangeLog | 5 +++++ lisp/dired.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 90df0479fac..25d0716ee5b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-08-27 Drew Adams + + * dired.el (dired-pop-to-buffer): Make window start at beginning + of buffer (Bug#12281). + 2012-08-26 Chong Yidong * window.el (special-display-regexps, special-display-frame-alist) diff --git a/lisp/dired.el b/lisp/dired.el index 6182e133726..b82b7781e39 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2950,6 +2950,8 @@ or \"* [3 files]\"." (split-window-sensibly window)))) pop-up-frames) (pop-to-buffer (get-buffer-create buf))) + ;; See Bug#12281. + (set-window-start nil (point-min)) ;; 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 -- 2.39.2