diff lisp/format.el @ 19363:166c69d75f01

(format-encode-run-method, format-decode-run-method): Put error output from shell command in temp buffer, not data buffer. (format-alist): Typo fix.

--- 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)))