emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/helm 01aa417509: Remove helm-delete-tramp-connection parti


From: ELPA Syncer
Subject: [nongnu] elpa/helm 01aa417509: Remove helm-delete-tramp-connection partially broken
Date: Fri, 24 Jun 2022 01:59:00 -0400 (EDT)

branch: elpa/helm
commit 01aa41750941cdaef6104210dc9a8e9391b463af
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Remove helm-delete-tramp-connection partially broken
    
    The function itself would work but tramp-list-connections is not
    reliably working, sometimes it does other times not.
---
 helm-files.el | 30 ------------------------------
 1 file changed, 30 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 4c49892bef..a83f2923f6 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -6517,36 +6517,6 @@ files."
                                     (format 
helm-ff-last-expanded-candidate-regexp
                                             (regexp-quote presel)))))))
 
-;;;###autoload
-(defun helm-delete-tramp-connection ()
-  "Allow deleting tramp connection or marked tramp connections at once.
-
-This replace `tramp-cleanup-connection' which is partially broken
-in Emacs < to 25.1.50.1 (See Emacs bug 
http://debbugs.gnu.org/cgi/bugreport.cgi?bug=24432).
-
-It allows additionally to delete more than one connection at
-once."
-  (interactive)
-  (let ((helm-quit-if-no-candidate
-         (lambda ()
-           (message "No Tramp connection found"))))
-    (helm :sources (helm-build-sync-source "Tramp connections"
-                     :candidates (tramp-list-connections)
-                     :candidate-transformer (lambda (candidates)
-                                              (cl-loop for v in candidates
-                                                       for name = (apply 
#'tramp-make-tramp-file-name
-                                                                         
(cl-loop with v = (helm-ff--tramp-cons-or-vector v)
-                                                                               
   for i across v collect i))
-                                                       when (or (processp 
(tramp-get-connection-process v))
-                                                                (buffer-live-p 
(get-buffer (tramp-buffer-name v))))
-                                                       collect (cons name v)))
-                     :action (lambda (_vec)
-                               (let ((vecs (helm-marked-candidates)))
-                                 (cl-loop for v in vecs
-                                          do (progn
-                                               (tramp-cleanup-connection v)
-                                               (remhash v 
tramp-cache-data))))))
-          :buffer "*helm tramp connections*")))
 
 
 (provide 'helm-files)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]