Mercurial > emacs
comparison lisp/simple.el @ 7426:58372be37e3a
(shell-command-on-region): Don't kill output buffer when in the one line case.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 10 May 1994 05:13:14 +0000 |
| parents | 451602bf12e4 |
| children | a01b93a9f893 |
comparison
equal
deleted
inserted
replaced
| 7425:eb4b69bf2d4e | 7426:58372be37e3a |
|---|---|
| 809 (message "%s" | 809 (message "%s" |
| 810 (save-excursion | 810 (save-excursion |
| 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 |
| 819 (defun universal-argument () | 818 (defun universal-argument () |
| 820 "Begin a numeric argument for the following command. | 819 "Begin a numeric argument for the following command. |