From 1277e7a2f740f66fc489517e5b20de30f305c53f Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 30 May 1996 20:44:17 +0000 Subject: [PATCH] (shell-command-on-region): In output buffer, display first page by setting point, not window-start (which can leave point in an unexpected place). --- lisp/simple.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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))) -- 2.39.2