master d1da4af93e1 1/2: Don't expand file names for non-existing remote connections

[Michael Albinus]

branch: master
commit d1da4af93e10b9e7be49e67c232a870f0a75b86a
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Don't expand file names for non-existing remote connections
    
    * 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)
---
 lisp/bookmark.el  | 2 ++
 lisp/saveplace.el | 4 +++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 10ff2f5ebbf..71d76cb4291 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -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))
diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index 590c55d2609..1330d00f10a 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -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