diff options
| author | Karl Heuer | 1996-04-30 03:21:44 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-04-30 03:21:44 +0000 |
| commit | aa247686c2aaa9f4848f7c10972ebc6047dc846d (patch) | |
| tree | c90b57d8cd3b36fa6d1ff2d80bfb1dbac4c3add5 | |
| parent | eb18bc57cbb41318f49007e170f407e62bb7a976 (diff) | |
| download | emacs-aa247686c2aaa9f4848f7c10972ebc6047dc846d.tar.gz emacs-aa247686c2aaa9f4848f7c10972ebc6047dc846d.zip | |
(shell-command-on-region): Start of region to keep is
min of endpoints, not max.
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 5617efa773d..829f39083d6 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -894,7 +894,7 @@ In either case, the output is inserted after point (leaving mark after it)." | |||
| 894 | ;; then replace that region with the output. | 894 | ;; then replace that region with the output. |
| 895 | (progn (setq buffer-read-only nil) | 895 | (progn (setq buffer-read-only nil) |
| 896 | (delete-region (max start end) (point-max)) | 896 | (delete-region (max start end) (point-max)) |
| 897 | (delete-region (point-min) (max start end)) | 897 | (delete-region (point-min) (min start end)) |
| 898 | (call-process-region (point-min) (point-max) | 898 | (call-process-region (point-min) (point-max) |
| 899 | shell-file-name t t nil | 899 | shell-file-name t t nil |
| 900 | shell-command-switch command) | 900 | shell-command-switch command) |