diff options
| author | Richard M. Stallman | 1994-05-10 05:13:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-10 05:13:14 +0000 |
| commit | 4ec982c5b302d0c8053913a96b31bd434d461ce5 (patch) | |
| tree | c2d6978715a0bc1b8d6a888ba0614f6c95d0308f /lisp | |
| parent | 8c8208202e6e69f68a510eed05bf598cf8f3f8cc (diff) | |
| download | emacs-4ec982c5b302d0c8053913a96b31bd434d461ce5.tar.gz emacs-4ec982c5b302d0c8053913a96b31bd434d461ce5.zip | |
(shell-command-on-region): Don't kill output buffer when in the one line case.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index ad8ead703fe..6b7bc51dc2f 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -811,8 +811,7 @@ deleted." | |||
| 811 | (set-buffer buffer) | 811 | (set-buffer buffer) |
| 812 | (goto-char (point-min)) | 812 | (goto-char (point-min)) |
| 813 | (buffer-substring (point) | 813 | (buffer-substring (point) |
| 814 | (progn (end-of-line) (point))))) | 814 | (progn (end-of-line) (point)))))) |
| 815 | (kill-buffer buffer)) | ||
| 816 | (t | 815 | (t |
| 817 | (set-window-start (display-buffer buffer) 1)))))))) | 816 | (set-window-start (display-buffer buffer) 1)))))))) |
| 818 | 817 | ||