Mercurial > emacs
changeset 19363:166c69d75f01
(format-encode-run-method, format-decode-run-method): Put error
output from shell command in temp buffer, not data buffer.
(format-alist): Typo fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 15 Aug 1997 23:42:26 +0000 |
| parents | fddeff2c6697 |
| children | 7182edce9028 |
| files | lisp/format.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/format.el Fri Aug 15 23:41:50 1997 +0000 +++ b/lisp/format.el Fri Aug 15 23:42:26 1997 +0000 @@ -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 @@ (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 @@ 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)))