Mercurial > emacs
comparison lisp/format.el @ 111913:5510dd208e55
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).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 06 Dec 2010 14:35:54 -0500 |
| parents | 1d1d5d9bd884 |
| children | c00190a8c8ef 376148b31b5e |
comparison
equal
deleted
inserted
replaced
| 111912:d566763f152d | 111913:5510dd208e55 |
|---|---|
| 178 (widen) | 178 (widen) |
| 179 (erase-buffer)) | 179 (erase-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 |
| 188 (buffer-size)))) | 187 (buffer-size)))) |
| 189 (bury-buffer error-buff) | 188 (bury-buffer error-buff) |