counsel.el (counsel-list-processes-action-switch): Improve

Fixes #398

diff --git a/counsel.el b/counsel.el
index 258ecbff9dbbff9b64a2d39d083e23d8e1be0c88..083413a38154e808fdc94f6841f647f63ff80beb 100644 (file)
--- a/counsel.el
+++ b/counsel.el
@@ -1559,9 +1559,11 @@ PREFIX is used to create the key."
               (delete x ivy--all-candidates))))
 
 (defun counsel-list-processes-action-switch (x)
-  (if (get-buffer x)
-      (switch-to-buffer x)
-    (message "Process %s doesn't have a buffer" x)))
+  (let* ((proc (get-process x))
+         (buf (and proc (process-buffer proc))))
+    (if buf
+        (switch-to-buffer x)
+      (message "Process %s doesn't have a buffer" x))))
 
 ;;;###autoload
 (defun counsel-list-processes ()