# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871688546 0
# Node ID 166c69d75f0189d45f336e9805aef0f4a78f14bc
# Parent  fddeff2c6697826bb6a85abd5f9b18b2e04e998c
(format-encode-run-method, format-decode-run-method): Put error
output from shell command in temp buffer, not data buffer.
(format-alist): Typo fix.

diff -r fddeff2c6697 -r 166c69d75f01 lisp/format.el
--- 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)))