Mercurial > emacs

diff lisp/format.el @ 24347:eb03024d18fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(format-encode-run-method, format-decode-run-method): Fix previous change.
author Dave Love <fx@gnu.org>
date Thu, 18 Feb 1999 15:46:31 +0000
parents 382a7de604b6
children 583275537b14
line wrap: on
line diff
--- 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)