mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-24 23:31:33 -07:00
Code Issues Projects Releases Wiki Activity

(shell-command-on-region): Don't examine order of

Browse source 
point and mark; use order of START and END instead.
Interactively pass point and mark, not region-beg and region-end.
This commit is contained in:
Richard M. Stallman 1995-08-12 09:22:04 +00:00
parent 3a0b426081
commit 6db3a963ab
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/simple.el
View file

@ -847,7 +847,7 @@ In either case, the output is inserted after point (leaving mark after it)."
(read-from-minibuffer "Shell command on region: "
nil nil nil
'shell-command-history)))
(list (region-beginning) (region-end)
(list (point) (mark)
string
current-prefix-arg
current-prefix-arg)))
@ -855,7 +855,7 @@ In either case, the output is inserted after point (leaving mark after it)."
(and output-buffer
(not (or (bufferp output-buffer) (stringp output-buffer)))))
;; Replace specified region with output from command.
(let ((swap (and replace (< (point) (mark)))))
(let ((swap (and replace (< start end))))
;; Don't muck with mark unless REPLACE says we should.
(goto-char start)
(and replace (push-mark))
@ -877,8 +877,8 @@ In either case, the output is inserted after point (leaving mark after it)."
;; delete everything but the specified region,
;; then replace that region with the output.
(progn (setq buffer-read-only nil)
(delete-region end (point-max))
(delete-region (point-min) start)
(delete-region (max start end) (point-max))
(delete-region (point-min) (max start end))
(call-process-region (point-min) (point-max)
shell-file-name t t nil
shell-command-switch command)