diff options
| author | Lawrence Mitchell <lawrence.mitchell@ed.ac.uk> | 2010-12-06 14:35:54 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-12-06 14:35:54 -0500 |
| commit | 3ecba0495e877769d3b29f67f0648af39352edb8 (patch) | |
| tree | 1b0133c6dd6df6cf46fc3990ab03c709b665c26b | |
| parent | d8b2a96214c9b53ab914901fdde71f5b0a931678 (diff) | |
| download | emacs-3ecba0495e877769d3b29f67f0648af39352edb8.tar.gz | |
Fix arg usage of format-decode-run-method (Bug#7488).
* lisp/format.el (format-decode-run-method): Pass args FROM and TO, not
point-min and point-max, to shell-command-on-region (Bug#7488).
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/format.el | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 125ce3351ba..88fcbc850be 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-12-06 Lawrence Mitchell <lawrence.mitchell@ed.ac.uk> + + * format.el (format-decode-run-method): Pass args FROM and TO, not + point-min and point-max, to shell-command-on-region (Bug#7488). + 2010-12-06 Jan Djärv <jan.h.d@swipnet.se> * frame.el (blink-cursor-mode): Make default t for ns. diff --git a/lisp/format.el b/lisp/format.el index d4262e2d0e6..8f2ef2c39a5 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -180,8 +180,7 @@ it should be a Lisp function. Decoding is done for the given BUFFER." ;; We should perhaps go via a temporary buffer and copy it ;; back, in case of errors. (if (and (zerop (save-window-excursion - (shell-command-on-region (point-min) (point-max) - method t t + (shell-command-on-region from to method t t error-buff))) ;; gzip gives zero exit status with bad args, for instance. (zerop (with-current-buffer error-buff |