(format-encode-run-method, format-decode-run-method): Fix previous change.

diff --git a/lisp/format.el b/lisp/format.el
index 73eabc1730f341d3cb67d0d624e28920b64ba30f..6fab2a3e725bcbe1b96a83da1cf83fc28ff8db4c 100644 (file)
--- 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)