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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90df047..25d0716 100644 (file)
--- 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 6182e13..b82b778 100644 (file)
--- 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