diff options
| author | Stefan Monnier | 2010-12-13 10:27:36 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2010-12-13 10:27:36 -0500 |
| commit | f49d1f52b2e368ef67dcfececd426de958548f4e (patch) | |
| tree | ce24ced92f2acc976daf4b69e3634c8bd600e44e /lisp/format.el | |
| parent | 07176b2a9e63a0d3933b167f987475d8a18da5cc (diff) | |
| parent | 11aad4e9f9f54ce8e9ecc66347e512b20a3cdf39 (diff) | |
| download | emacs-f49d1f52b2e368ef67dcfececd426de958548f4e.tar.gz emacs-f49d1f52b2e368ef67dcfececd426de958548f4e.zip | |
Merge from emacs-23
Diffstat (limited to 'lisp/format.el')
| -rw-r--r-- | lisp/format.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/format.el b/lisp/format.el index 0436187d984..b4277ef6df0 100644 --- a/lisp/format.el +++ b/lisp/format.el | |||
| @@ -181,8 +181,7 @@ it should be a Lisp function. Decoding is done for the given BUFFER." | |||
| 181 | ;; We should perhaps go via a temporary buffer and copy it | 181 | ;; We should perhaps go via a temporary buffer and copy it |
| 182 | ;; back, in case of errors. | 182 | ;; back, in case of errors. |
| 183 | (if (and (zerop (save-window-excursion | 183 | (if (and (zerop (save-window-excursion |
| 184 | (shell-command-on-region (point-min) (point-max) | 184 | (shell-command-on-region from to method t t |
| 185 | method t t | ||
| 186 | error-buff))) | 185 | error-buff))) |
| 187 | ;; gzip gives zero exit status with bad args, for instance. | 186 | ;; gzip gives zero exit status with bad args, for instance. |
| 188 | (zerop (with-current-buffer error-buff | 187 | (zerop (with-current-buffer error-buff |