emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals-release/org 6fc420167c: org-persist: Fix file path calc


From: ELPA Syncer
Subject: [elpa] externals-release/org 6fc420167c: org-persist: Fix file path calculation
Date: Tue, 14 Mar 2023 09:58:33 -0400 (EDT)

branch: externals-release/org
commit 6fc420167c2144d14634e15769c0a05f70f938cc
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-persist: Fix file path calculation
    
    * lisp/org-persist.el (org-persist-read:file):
    (org-persist-read:url): Use `org-file-name-concat' instead of simple
    `concat'.
---
 lisp/org-persist.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index a0652b99c5..01078f4596 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -540,13 +540,13 @@ COLLECTION is the plist holding data collection."
 
 (defun org-persist-read:file (_ path __)
   "Read file container from PATH."
-  (when (and path (file-exists-p (concat org-persist-directory path)))
-    (concat org-persist-directory path)))
+  (when (and path (file-exists-p (org-file-name-concat org-persist-directory 
path)))
+    (org-file-name-concat org-persist-directory path)))
 
 (defun org-persist-read:url (_ path __)
   "Read file container from PATH."
-  (when (and path (file-exists-p (concat org-persist-directory path)))
-    (concat org-persist-directory path)))
+  (when (and path (file-exists-p (org-file-name-concat org-persist-directory 
path)))
+    (org-file-name-concat org-persist-directory path)))
 
 (defun org-persist-read:index (cont index-file _)
   "Read index container CONT from INDEX-FILE."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]