call-process-region outputs stderr to a file, not a buffer

diff --git a/lisp/fmt/fmt.el b/lisp/fmt/fmt.el
index 5ac97e39fa1ceae5d80c148c5be7eafa3ceabefd..5d837f437875a7b24c68c09c8e7bba70261cee90 100644 (file)
--- a/lisp/fmt/fmt.el
+++ b/lisp/fmt/fmt.el
@@ -37,7 +37,7 @@
   :type '(string)
   :group 'fmt)
 
-(defcustom fmt-stderr-buffer "*fmt stderr*"
+(defcustom fmt-stderr-file "/dev/null"
   "Buffer to send fmt-executable stderr to."
   :type '(string)
   :group 'fmt)
@@ -52,7 +52,7 @@
 (defun fmt-buffer ()
   (run-hooks 'fmt-before-format-hook)
   (let ((exit-status (apply 'call-process-region `(,(point-min) ,(point-max) ,fmt-executable
-                                                   nil ,(list fmt-stdout-buffer fmt-stderr-buffer)
+                                                   nil ,(list fmt-stdout-buffer fmt-stderr-file)
                                                    nil ,@fmt-args))))
     (if (zerop exit-status)
         (replace-buffer-contents fmt-stdout-buffer)