GNU bug report logs - #65055
30.0.50; save-place-abbreviation-file-names :set fails for saveplace-pdf-view places

Previous Next

Full log

View this message in rfc822 format

From: Visuwesh <visuweshm <at> gmail.com>
To: 65055 <at> debbugs.gnu.org
Subject: bug#65055: 30.0.50; save-place-abbreviation-file-names :set fails for saveplace-pdf-view places
Date: Fri, 04 Aug 2023 21:48:26 +0530

[0001-Only-abbreviate-expand-strings-when-adjusting-savepl.patch (text/x-diff, attachment)]

From 92f9d2b43e1974bf1496e436ad49d3b687ee0d3f Mon Sep 17 00:00:00 2001
From: Visuwesh <visuweshm <at> gmail.com>
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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.