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. |