# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 833489057 0
# Node ID 29ba4949d3d51578e24fb16ce4c0b81d4730563e
# Parent  d78c3fd6a0abf21210313ba0bddc47eb0b29db19
(shell-command-on-region): In output buffer, display
first page by setting point, not window-start (which can leave
point in an unexpected place).

diff -r d78c3fd6a0ab -r 29ba4949d3d5 lisp/simple.el
--- a/lisp/simple.el	Thu May 30 19:46:24 1996 +0000
+++ b/lisp/simple.el	Thu May 30 20:44:17 1996 +0000
@@ -926,7 +926,10 @@
 			    (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)))