Call ImageMagick with make-process. Redirect stderr to separate buffer

diff --git a/tools/showterm.el b/tools/showterm.el
index 37cde277db3dfeac3e9146b83a1f2d46c339eb68..d5741298eed8a9eaf4d33ee653d36dfb63ac8c10 100644 (file)
--- a/tools/showterm.el
+++ b/tools/showterm.el
@@ -76,16 +76,18 @@
         (setq str (buffer-string))
         (erase-buffer))
       (let ((proc (let (process-connection-type)
-                    (start-process "convert" (current-buffer)
-                                   "convert"
-                                   "png:-"
-                                   "-gravity" "center"
-                                   "-background" "white"
-                                   "-scale" (format "%dx%d"
-                                                    showterm-pixel-width
-                                                    showterm-pixel-width)
-                                   "-extent" (format "%dx" showterm-pixel-width)
-                                   "png:-"))))
+                    (make-process :name "convert"
+                                  :buffer (current-buffer)
+                                  :stderr " convert-stderr"
+                                  :command `("convert"
+                                             "png:-"
+                                             "-gravity" "center"
+                                             "-background" "white"
+                                             "-scale" ,(format "%dx%d"
+                                                               showterm-pixel-width
+                                                               showterm-pixel-width)
+                                             "-extent" ,(format "%dx" showterm-pixel-width)
+                                             "png:-")))))
         (process-send-string proc str)
         (process-send-eof proc)
         (showterm-wait-for-process proc))