diff options
| author | Karl Heuer <[email protected]> | 1996-05-30 20:44:17 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1996-05-30 20:44:17 +0000 |
| commit | 1277e7a2f740f66fc489517e5b20de30f305c53f (patch) | |
| tree | 8b4fc39cf4bd5e1a67e032617f30eb07611d14ad | |
| parent | debcea0c5c7ce35c22e067301fa1d6c2c1453708 (diff) | |
(shell-command-on-region): In output buffer, display
first page by setting point, not window-start (which can leave
point in an unexpected place).
| -rw-r--r-- | lisp/simple.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 5b3177d3a4..4ef1745ae3 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))) |