Disconnect now actually works.

sanel · Sep 24, 2014 · 9d9e2ca · 9d9e2ca
1 parent dbaacf6
commit 9d9e2ca
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/monroe.el b/monroe.el
@@ -276,12 +276,15 @@ monroe-repl-buffer."
 
 (defun monroe-disconnect ()
   "Disconnect from current nrepl connection."
-  (when monroe-connection-process
-	(monroe-clear-request-table)
-	(delete-process monroe-connection-process)
-	(setq monroe-connection-process nil)
-	(delete-process monroe-fake-proc)
-	(setq monroe-fake-proc nil)))
+  (monroe-clear-request-table)
+  (let ((delete-process-safe (lambda (p)
+							   (when (and p (process-live-p p))
+								 (delete-process p))))
+		(proc1 (get-buffer-process monroe-repl-buffer))
+	    (proc2 (get-buffer-process "*monroe-connection*")))
+	(funcall delete-process-safe proc1)
+	(funcall delete-process-safe proc2)
+	(funcall delete-process-safe monroe-fake-proc)))
 
 ;;; keys