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).

2 files changed, 7 insertions, 0 deletions

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  <drew.adams@oracle.com>
+
+        * dired.el (dired-pop-to-buffer): Make window start at beginning
+        of buffer (Bug#12281).
+
 2012-08-26  Chong Yidong  <cyd@gnu.org>
 
         * 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