From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 11 Nov 2021 04:04:31 +0000 (+0100)
Subject: Don't save places in literally-visited files
X-Git-Tag: emacs-29.0.90~3668^2~62
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42037d8948f0209a88c64949adf5016229e4beec;p=emacs.git

Don't save places in literally-visited files

* lisp/saveplace.el (save-places-to-alist): Don't save places in
literally-visited files (bug#51740).
---

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index 4191a3fa62e..3eff816fa07 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -328,11 +328,18 @@ may have changed) back to `save-place-alist'."
       (with-current-buffer (car buf-list)
 	;; save-place checks buffer-file-name too, but we can avoid
 	;; overhead of function call by checking here too.
-	(and (or buffer-file-name (and (derived-mode-p 'dired-mode)
-                                       (boundp 'dired-subdir-alist)
-				       dired-subdir-alist
-				       (dired-current-directory)))
-	     (save-place-to-alist))
+	(when (and (or buffer-file-name
+                       (and (derived-mode-p 'dired-mode)
+                            (boundp 'dired-subdir-alist)
+		            dired-subdir-alist
+		            (dired-current-directory)))
+                   ;; Don't save place in literally-visited file
+                   ;; because this will commonly differ from the place
+                   ;; when visiting literally (and
+                   ;; `find-file-literally' always places point at the
+                   ;; start of the buffer).
+                   (not find-file-literally))
+	  (save-place-to-alist))
 	(setq buf-list (cdr buf-list))))))
 
 (defun save-place-find-file-hook ()