(shell-command-on-region): In output buffer, display

first page by setting point, not window-start (which can leave
point in an unexpected place).

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 5b3177d3a4c..4ef1745ae3d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -926,7 +926,10 @@ In either case, the output is inserted after point (leaving mark after it)."
                             (buffer-substring (point)
                                               (progn (end-of-line) (point))))))
                 (t 
-                 (set-window-start (display-buffer buffer) 1))))))))
+                 (save-excursion
+                   (set-buffer buffer)
+                   (goto-char (point-min)))
+                 (display-buffer buffer))))))))
 
 (defconst universal-argument-map
   (let ((map (make-sparse-keymap)))