From: Juri Linkov <juri@linkov.net>
Date: Thu, 25 Jan 2018 21:40:52 +0000 (+0200)
Subject: * lisp/arc-mode.el (archive-extract): Let-bind `create-lockfiles' to nil
X-Git-Tag: emacs-27.0.90~5808
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e777582e05680f08664f80c95fee4267e028db9;p=emacs.git

* 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'.
---

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)