[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master e186705: Let tramp-archive unmount clean
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master e186705: Let tramp-archive unmount clean |
Date: |
Sat, 15 Jun 2019 05:46:11 -0400 (EDT) |
branch: master
commit e1867056ae7ef3ffce90d4b2564a9e81b54818ba
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
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 e6ae73a..d7f9966 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master e186705: Let tramp-archive unmount clean,
Michael Albinus <=