From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 15 Jun 2019 09:46:04 +0000 (+0200)
Subject: Let tramp-archive unmount clean
X-Git-Tag: emacs-27.0.90~2522^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1867056ae7ef3ffce90d4b2564a9e81b54818ba;p=emacs.git

Let tramp-archive unmount clean

* lisp/net/tramp-archive.el (tramp-archive-cleanup-hash):
Don't check for a proper method.
---

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)