[Emacs-diffs] /srv/bzr/emacs/trunk r109790: In dired-pop-to-buffer make window start at beginning of buffer (Bug#12281).

[martin rudalics]

------------------------------------------------------------
revno: 109790
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Mon 2012-08-27 11:05:55 +0200
message:
  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).
modified:
  lisp/ChangeLog
  lisp/dired.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-26 13:42:18 +0000
+++ b/lisp/ChangeLog    2012-08-27 09:05:55 +0000
@@ -1,3 +1,8 @@
+2012-08-27  Drew Adams  <address@hidden>
+
+       * dired.el (dired-pop-to-buffer): Make window start at beginning
+       of buffer (Bug#12281).
+
 2012-08-26  Chong Yidong  <address@hidden>
 
        * window.el (special-display-regexps, special-display-frame-alist)

=== modified file 'lisp/dired.el'
--- a/lisp/dired.el     2012-08-22 06:59:38 +0000
+++ b/lisp/dired.el     2012-08-27 09:05:55 +0000
@@ -2950,6 +2950,8 @@
               (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