diff options
| author | Juri Linkov <juri@jurta.org> | 2012-09-30 19:54:43 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2012-09-30 19:54:43 +0300 |
| commit | 4c478e6b45d9e868efaf5f402fad2e54f4324a93 (patch) | |
| tree | 2f42cec4a5c65e2e26d9976ce4da1b01f4346249 | |
| parent | d80d54b289a971d7a98dc5fafebaa957082c8222 (diff) | |
| download | emacs-4c478e6b45d9e868efaf5f402fad2e54f4324a93.tar.gz | |
* lisp/arc-mode.el (archive-summarize): Let-bind `buffer-file-truename'
to nil around the call to `add-text-properties' to prevent
directory time modification by lock_file.
* lisp/tar-mode.el (tar-summarize-buffer): Idem.
Fixes: debbugs:2295
| -rw-r--r-- | lisp/ChangeLog | 12 | ||||
| -rw-r--r-- | lisp/arc-mode.el | 3 | ||||
| -rw-r--r-- | lisp/tar-mode.el | 9 |
3 files changed, 17 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4ac0f1d451e..bdc8afd208d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,12 @@ 2012-09-30 Juri Linkov <juri@jurta.org> + * arc-mode.el (archive-summarize): Let-bind `buffer-file-truename' + to nil around the call to `add-text-properties' to prevent + directory time modification by lock_file. (Bug#2295) + * tar-mode.el (tar-summarize-buffer): Idem. + +2012-09-30 Juri Linkov <juri@jurta.org> + * facemenu.el (list-colors-sort): Add option "Luminance". (list-colors-sort-key): Implement it. @@ -2686,8 +2693,9 @@ * register.el (copy-to-register, copy-rectangle-to-register): Deactivate the mark, and use indicate-copied-region (Bug#10056). - (append-to-register, prepend-to-register): - Call 2012-07-29 Juri Linkov <juri@jurta.org> + (append-to-register, prepend-to-register): Call indicate-copied-region. + +2012-07-29 Juri Linkov <juri@jurta.org> * simple.el (async-shell-command-buffer): New defcustom. (shell-command): Use it. (Bug#4719) diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index a97a052dc08..c04cd8dcf9d 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -787,7 +787,8 @@ 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 ((inhibit-read-only t)) + (let ((buffer-file-truename 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) (or shut-up diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 9cd69d84250..2622a8215b8 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -518,12 +518,13 @@ 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 ((inhibit-read-only t) + (let ((buffer-file-truename nil) ; avoid changing dir mtime by lock_file + (inhibit-read-only t) (total-summaries (mapconcat 'tar-header-block-summarize tar-parse-info "\n"))) - (insert total-summaries "\n")) - (goto-char (point-min)) - (restore-buffer-modified-p modified))) + (insert total-summaries "\n") + (goto-char (point-min)) + (restore-buffer-modified-p modified)))) (defvar tar-mode-map (let ((map (make-keymap))) |