diff options
| author | Dave Love <fx@gnu.org> | 1999-02-18 15:46:31 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-02-18 15:46:31 +0000 |
| commit | 7cc45a35b1aea566175263f16924a4304536810a (patch) | |
| tree | 5100f1d77c97b5e31934f3560f96e45ffe4b6d54 /lisp/format.el | |
| parent | cd529916976e7c04b967808e992f16ab76023348 (diff) | |
| download | emacs-7cc45a35b1aea566175263f16924a4304536810a.tar.gz | |
(format-encode-run-method, format-decode-run-method): Fix previous change.
Diffstat (limited to 'lisp/format.el')
| -rw-r--r-- | lisp/format.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/format.el b/lisp/format.el index 73eabc1730f..6fab2a3e725 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -149,7 +149,7 @@ otherwise, it should be a Lisp function. BUFFER should be the buffer that the output originally came from." (if (stringp method) (let ((error-buff (get-buffer-create "*Format Errors*")) - (coding-system-for-write 'no-conversion) + (coding-system-for-read 'no-conversion) format-alist) (with-current-buffer error-buff (widen) @@ -170,7 +170,7 @@ If METHOD is a string, it is a shell command; otherwise, it should be a Lisp function. Decoding is done for the given BUFFER." (if (stringp method) (let ((error-buff (get-buffer-create "*Format Errors*")) - (coding-system-for-read 'no-conversion) ; like jka-compr + (coding-system-for-write 'no-conversion) format-alist) (with-current-buffer error-buff (widen) |