Subject: Re: bug#65055: 30.0.50; save-place-abbreviation-file-names :set fails for saveplace-pdf-view places

From: Visuwesh <[email-masked]>
Date: Fri, 04 Aug 2023 21:48:26 +0530

>From 92f9d2b43e1974bf1496e436ad49d3b687ee0d3f Mon Sep 17 00:00:00 2001
From: Visuwesh <[email-masked]>
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