From e1867056ae7ef3ffce90d4b2564a9e81b54818ba Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 15 Jun 2019 11:46:04 +0200 Subject: [PATCH] Let tramp-archive unmount clean * lisp/net/tramp-archive.el (tramp-archive-cleanup-hash): Don't check for a proper method. --- lisp/net/tramp-archive.el | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el index e6ae73aae61..d7f99667f45 100644 --- a/lisp/net/tramp-archive.el +++ b/lisp/net/tramp-archive.el @@ -475,17 +475,19 @@ name is kept in slot `hop'" (defun tramp-archive-cleanup-hash () "Remove local copies of archives, used by GVFS." - (maphash - (lambda (key value) - ;; Unmount local copy. - (ignore-errors - (tramp-message (car value) 3 "Unmounting %s" (or (cdr value) key)) - (tramp-gvfs-unmount (car value))) - ;; Delete local copy. - (ignore-errors (delete-file (cdr value))) - (remhash key tramp-archive-hash)) - tramp-archive-hash) - (clrhash tramp-archive-hash)) + ;; Don't check for a proper method. + (let ((non-essential t)) + (maphash + (lambda (key value) + ;; Unmount local copy. + (ignore-errors + (tramp-message (car value) 3 "Unmounting %s" (or (cdr value) key)) + (tramp-gvfs-unmount (car value))) + ;; Delete local copy. + (ignore-errors (delete-file (cdr value))) + (remhash key tramp-archive-hash)) + tramp-archive-hash) + (clrhash tramp-archive-hash))) (add-hook 'tramp-cleanup-all-connections-hook #'tramp-archive-cleanup-hash) (add-hook 'kill-emacs-hook #'tramp-archive-cleanup-hash) -- 2.39.5