Mercurial > emacs
changeset 15305:29ba4949d3d5
(shell-command-on-region): In output buffer, display
first page by setting point, not window-start (which can leave
point in an unexpected place).
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 30 May 1996 20:44:17 +0000 |
| parents | d78c3fd6a0ab |
| children | 00619dd2f972 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))