[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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals-release/org 6fc420167c: org-persist: Fix file path calculation,
ELPA Syncer <=