From d1da4af93e10b9e7be49e67c232a870f0a75b86a Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 10 Nov 2023 11:15:30 +0100 Subject: [PATCH] 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 -- 2.39.5