diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-15 23:42:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-15 23:42:26 +0000 |
| commit | 952936e8a93d2cc828438ec87197085aba8099e6 (patch) | |
| tree | 0004ba63263301b57c436f5f6502bdf8188fccc9 /lisp/format.el | |
| parent | cce1c318c06a91e3c099a1e9d34d9c997d8a538c (diff) | |
| download | emacs-952936e8a93d2cc828438ec87197085aba8099e6.tar.gz | |
(format-encode-run-method, format-decode-run-method): Put error
output from shell command in temp buffer, not data buffer.
(format-alist): Typo fix.
Diffstat (limited to 'lisp/format.el')
| -rw-r--r-- | lisp/format.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/format.el b/lisp/format.el index 8ed5d78ab47..1ab15a4bb7c 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -73,7 +73,7 @@ nil nil nil nil nil) (ibm "IBM Code Page 850 (DOS)" "1\\(^\\)" - "recode ibm-ps:latin1" "recode latin1:ibm-pc" t nil) + "recode ibm-pc:latin1" "recode latin1:ibm-pc" t nil) (mac "Apple Macintosh" "1\\(^\\)" "recode mac:latin1" "recode latin1:mac" t nil) @@ -148,7 +148,8 @@ BUFFER should be the buffer that the output originally came from." (if (stringp method) (save-current-buffer (set-buffer buffer) - (shell-command-on-region from to method t) + (with-output-to-temp-buffer "*Format Errors*" + (shell-command-on-region from to method t nil standard-output)) (point)) (funcall method from to buffer))) @@ -158,7 +159,8 @@ If METHOD is a string, it is a shell command; otherwise, it should be a Lisp function." (if (stringp method) (progn - (shell-command-on-region from to method t) + (with-output-to-temp-buffer "*Format Errors*" + (shell-command-on-region from to method t nil standard-output)) (point)) (funcall method from to))) |