showterm.el: revert #3338

diff --git a/tools/showterm.el b/tools/showterm.el
index d5741298eed8a9eaf4d33ee653d36dfb63ac8c10..37cde277db3dfeac3e9146b83a1f2d46c339eb68 100644 (file)
--- a/tools/showterm.el
+++ b/tools/showterm.el
@@ -76,18 +76,16 @@
         (setq str (buffer-string))
         (erase-buffer))
       (let ((proc (let (process-connection-type)
-                    (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:-")))))
+                    (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:-"))))
         (process-send-string proc str)
         (process-send-eof proc)
         (showterm-wait-for-process proc))