* lisp/tar-mode.el (tar-summarize-buffer): Let-bind `create-lockfiles' to nil

instead of `buffer-file-truename'.  (Bug#30215)

* lisp/image-mode.el (image-toggle-display-image): Idem.

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 1052ed97613da5e3a0716ae540e2ccaf889bbdc4..70d2ca87cc6315023b703c841260db8cd75fe96e 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -780,7 +780,7 @@ was inserted."
                    rear-nonsticky (display) ;; intangible
                    read-only t front-sticky (read-only)))
 
-    (let ((buffer-file-truename nil)) ; avoid changing dir mtime by lock_file
+    (let ((create-lockfiles nil)) ; avoid changing dir mtime by lock_file
       (add-text-properties (point-min) (point-max) props)
       (restore-buffer-modified-p modified))
     ;; Inhibit the cursor when the buffer contains only an image,

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 2beeb7484a7ed084ff6cb66fc443509ce37ada35..f7b14fab516629c5cf4633145b99e295da189360 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -595,7 +595,7 @@ MODE should be an integer which is a file mode value."
         (progress-reporter-done progress-reporter)
       (message "Warning: premature EOF parsing tar file"))
     (goto-char (point-min))
-    (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)
           (total-summaries
            (mapconcat 'tar-header-block-summarize tar-parse-info "\n")))