procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't save places in literally-visited files

Browse source 
* lisp/saveplace.el (save-places-to-alist): Don't save places in
literally-visited files (bug#51740).
This commit is contained in:
Lars Ingebrigtsen 2021-11-11 05:04:31 +01:00
parent 9b80fe55f9
commit 42037d8948
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/saveplace.el
View file

@ -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 ()