emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 3c46315: * lisp/tar-mode.el (tar-summarize-buffer):


From: Juri Linkov
Subject: [Emacs-diffs] master 3c46315: * lisp/tar-mode.el (tar-summarize-buffer): Let-bind `create-lockfiles' to nil
Date: Sun, 28 Jan 2018 16:27:44 -0500 (EST)

branch: master
commit 3c46315d21c090797920628a886234c5d8dc8215
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * 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 1052ed9..70d2ca8 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 2beeb74..f7b14fa 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")))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]