From 92f9d2b43e1974bf1496e436ad49d3b687ee0d3f Mon Sep 17 00:00:00 2001 From: Visuwesh Date: Fri, 4 Aug 2023 21:47:11 +0530 Subject: [PATCH] Only abbreviate/expand strings when adjusting saveplace * lisp/saveplace.el (save-place-abbreviate-file-names): Only call abbreviate-file-name/expand-file-name on strings in :set function. (bug#65055) --- lisp/saveplace.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/saveplace.el b/lisp/saveplace.el index 18d296ba2d..6386791337 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -154,7 +154,9 @@ save-place-abbreviate-file-names (if (listp v) (cl-loop for (k1 . v1) in v collect - (cons k1 (funcall fun v1))) + (cons k1 (if (stringp v1) + (funcall fun v1) + v1))) v))) :key #'car :from-end t -- 2.40.1