Fixes ananthakumaran#109: Don't kill cmdserver process after regular …

…usage.
ncalexan · Jan 28, 2021 · 2a6f55e · 2a6f55e
1 parent 3fc2f5d
commit 2a6f55e
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/monky.el b/monky.el
@@ -572,15 +572,15 @@ command-server should be used."
 
 (defmacro monky-with-process (&rest body)
   (declare (indent 0)
-	   (debug (body)))
+	       (debug (body)))
   `(let ((outer (not monky-cmd-process)))
      (when (and outer (eq monky-process-type 'cmdserver))
        (setq monky-cmd-process (monky-cmdserver-start)))
-     (unwind-protect
-	 (progn ,@body)
+     (condition-case nil
+	     (progn ,@body)
        (when (and monky-cmd-process outer (eq monky-process-type 'cmdserver))
-	 (delete-process monky-cmd-process)
-	 (setq monky-cmd-process nil)))))
+	     (delete-process monky-cmd-process)
+	     (setq monky-cmd-process nil)))))