[nongnu] elpa/slime 2ca97012da 38/44: slime-draw-connection-list: remove closed connections.

[ELPA Syncer]

branch: elpa/slime
commit 2ca97012da4ab744ca008b7308b3be3c433c7c6b
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    slime-draw-connection-list: remove closed connections.
    
    Probably should be done in other places as well.
---
 slime.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/slime.el b/slime.el
index cafb85d7a0..3b9bb0ec4e 100644
--- a/slime.el
+++ b/slime.el
@@ -3217,7 +3217,8 @@ you should check twice before modifying.")
      (let ((filename (slime-from-lisp-filename filename)))
        (slime-check-location-filename-sanity filename)
        (set-buffer (or (get-file-buffer filename)
-                       (let ((find-file-suppress-same-file-warnings t))
+                       (let ((find-file-suppress-same-file-warnings t)
+                             (confirm-nonexistent-file-or-buffer t))
                          (find-file-noselect filename))))))
     ((:buffer buffer-name)
      (slime-check-location-buffer-name-sanity buffer-name)
@@ -6366,6 +6367,10 @@ was called originally."
         (fstring "%s%2s  %-10s  %-17s  %-7s %-s\n"))
     (insert (format fstring " " "Nr" "Name" "Port" "Pid" "Type")
             (format fstring " " "--" "----" "----" "---" "----"))
+    (setf slime-net-processes
+          (cl-remove-if-not (lambda (conn)
+                              (eq (process-status conn) 'open))
+                            slime-net-processes))
     (dolist (p (reverse slime-net-processes))
       (when (eq default p) (setf default-pos (point)))
       (slime-insert-propertized