From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 30 May 1996 20:44:17 +0000 (+0000)
Subject: (shell-command-on-region): In output buffer, display
X-Git-Tag: emacs-19.34~557
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1277e7a2f740f66fc489517e5b20de30f305c53f;p=emacs.git

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