[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/helm 01aa417509: Remove helm-delete-tramp-connection partially broken,
ELPA Syncer <=