diff options
| author | Lawrence Mitchell | 2010-12-06 14:35:54 -0500 |
|---|---|---|
| committer | Chong Yidong | 2010-12-06 14:35:54 -0500 |
| commit | 3ecba0495e877769d3b29f67f0648af39352edb8 (patch) | |
| tree | 1b0133c6dd6df6cf46fc3990ab03c709b665c26b /lisp | |
| parent | d8b2a96214c9b53ab914901fdde71f5b0a931678 (diff) | |
| download | emacs-3ecba0495e877769d3b29f67f0648af39352edb8.tar.gz emacs-3ecba0495e877769d3b29f67f0648af39352edb8.zip | |
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).
Diffstat (limited to 'lisp')
| -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 @@ | |||
| 1 | 2010-12-06 Lawrence Mitchell <lawrence.mitchell@ed.ac.uk> | ||
| 2 | |||
| 3 | * format.el (format-decode-run-method): Pass args FROM and TO, not | ||
| 4 | point-min and point-max, to shell-command-on-region (Bug#7488). | ||
| 5 | |||
| 1 | 2010-12-06 Jan Djärv <jan.h.d@swipnet.se> | 6 | 2010-12-06 Jan Djärv <jan.h.d@swipnet.se> |
| 2 | 7 | ||
| 3 | * frame.el (blink-cursor-mode): Make default t for ns. | 8 | * 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." | |||
| 180 | ;; We should perhaps go via a temporary buffer and copy it | 180 | ;; We should perhaps go via a temporary buffer and copy it |
| 181 | ;; back, in case of errors. | 181 | ;; back, in case of errors. |
| 182 | (if (and (zerop (save-window-excursion | 182 | (if (and (zerop (save-window-excursion |
| 183 | (shell-command-on-region (point-min) (point-max) | 183 | (shell-command-on-region from to method t t |
| 184 | method t t | ||
| 185 | error-buff))) | 184 | error-buff))) |
| 186 | ;; gzip gives zero exit status with bad args, for instance. | 185 | ;; gzip gives zero exit status with bad args, for instance. |
| 187 | (zerop (with-current-buffer error-buff | 186 | (zerop (with-current-buffer error-buff |