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

Don't expand file names for non-existing remote connections

Browse source 
* lisp/saveplace.el (save-place-abbreviate-file-names) [:set]:
* lisp/bookmark.el (bookmark--remove-fringe-mark): Don't expand
file names for non-existing remote connections.  (Bug#66982)
This commit is contained in:
Michael Albinus 2023-11-10 11:15:30 +01:00
parent 5324723c2b
commit d1da4af93e
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/bookmark.el
View file

@ -511,6 +511,8 @@ BM is a bookmark as returned from function `bookmark-get-bookmark'.
See user option `bookmark-fringe-mark'."
(let ((filename (cdr (assq 'filename bm)))
(pos (cdr (assq 'position bm)))
;; Don't expand file names for non-existing remote connections.
(non-essential t)
overlays found temp)
(when (and pos filename)
(setq filename (expand-file-name filename))

4
lisp/saveplace.el
View file

@ -156,7 +156,9 @@ either `setopt' or M-x customize-variable to set this option."
:set (lambda (sym val)
(set-default sym val)
(or save-place-loaded (save-place-load-alist-from-file))
(let ((fun (if val #'abbreviate-file-name #'expand-file-name)))
(let ((fun (if val #'abbreviate-file-name #'expand-file-name))
;; Don't expand file names for non-existing remote connections.
(non-essential t))
(setq save-place-alist
(cl-delete-duplicates
(cl-loop for (k . v) in save-place-alist