Kill buffer when start sub-process

manateelazycat · Jul 2, 2023 · e92d6de · e92d6de
1 parent f9dd8a2
commit e92d6de
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/insert-translated-name.el b/insert-translated-name.el
@@ -413,8 +413,6 @@
          (alist-get 'translation (json-read-from-string output))
          insert-translated-name-buffer-name
          insert-translated-name-placeholder)
-
-        (kill-buffer " *insert-translated-name*")
         ))))
 
 (defvar insert-translated-name-word nil)
@@ -427,6 +425,8 @@
   (setq insert-translated-name-style style)
   (setq insert-translated-name-buffer-name (buffer-name))
   (setq insert-translated-name-placeholder placeholder)
+  (when (get-buffer " *insert-translated-name*")
+    (kill-buffer " *insert-translated-name*"))
   (let ((process (start-process
                   "insert-translated-name"
                   " *insert-translated-name*"