From 2e777582e05680f08664f80c95fee4267e028db9 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 25 Jan 2018 23:40:52 +0200 Subject: [PATCH] * lisp/arc-mode.el (archive-extract): Let-bind `create-lockfiles' to nil to prevent directory time modification by lock_file on visiting a file from archive. (Bug#30215) (archive-summarize): Let-bind `create-lockfiles' to nil instead of `buffer-file-truename'. --- lisp/arc-mode.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 1dec40f2157..ce3ec09e286 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -806,7 +806,7 @@ is visible (and the real data of the buffer is hidden). Optional argument SHUT-UP, if non-nil, means don't print messages when parsing the archive." (widen) - (let ((buffer-file-truename nil) ; avoid changing dir mtime by lock_file + (let ((create-lockfiles nil) ; avoid changing dir mtime by lock_file (inhibit-read-only t)) (setq archive-proper-file-start (copy-marker (point-min) t)) (set (make-local-variable 'change-major-mode-hook) 'archive-desummarize) @@ -1063,7 +1063,9 @@ using `make-temp-file', and the generated name is returned." ;; We read an archive member by no-conversion at ;; first, then decode appropriately by calling ;; archive-set-buffer-as-visiting-file later. - (coding-system-for-read 'no-conversion)) + (coding-system-for-read 'no-conversion) + ;; Avoid changing dir mtime by lock_file + (create-lockfiles nil)) (condition-case err (if (fboundp extractor) (funcall extractor archive ename) -- 2.39.5