# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 919352791 0
# Node ID eb03024d18fc76d98dcada24b81d6e5aa1892018
# Parent  68d26067bb74442b310a9098d062346ab911de1a
(format-encode-run-method, format-decode-run-method): Fix previous change.

diff -r 68d26067bb74 -r eb03024d18fc lisp/format.el
--- a/lisp/format.el	Thu Feb 18 13:11:50 1999 +0000
+++ b/lisp/format.el	Thu Feb 18 15:46:31 1999 +0000
@@ -149,7 +149,7 @@
 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 @@
 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)