From 3c46315d21c090797920628a886234c5d8dc8215 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 28 Jan 2018 23:27:32 +0200 Subject: [PATCH] * 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. --- lisp/image-mode.el | 2 +- lisp/tar-mode.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 1052ed97613..70d2ca87cc6 100644 --- 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 2beeb7484a7..f7b14fab516 100644 --- 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"))) -- 2.39.5