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

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

[elpa] externals/org-transclusion ff722826ce: fix: #168 :expand-links ex


From: ELPA Syncer
Subject: [elpa] externals/org-transclusion ff722826ce: fix: #168 :expand-links expands path incorrectly
Date: Sun, 5 Mar 2023 15:59:07 -0500 (EST)

branch: externals/org-transclusion
commit ff722826cec3a77f57f819a7810bc50fcc36d262
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    fix: #168 :expand-links expands path incorrectly
    
    The :raw-link prop of the link element is not the right one -- it
    contains the string "file:path/to/file.ext".
    
    :path prop is the right one.
    
    Thanks to GitHub user @stardiviner
---
 org-transclusion.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/org-transclusion.el b/org-transclusion.el
index 624e9beea5..2678bdbde3 100644
--- a/org-transclusion.el
+++ b/org-transclusion.el
@@ -17,7 +17,7 @@
 
 ;; Author:        Noboru Ota <me@nobiot.com>
 ;; Created:       10 October 2020
-;; Last modified: 04 March 2023
+;; Last modified: 05 March 2023
 
 ;; URL: https://github.com/nobiot/org-transclusion
 ;; Keywords: org-mode, transclusion, writing
@@ -1192,12 +1192,12 @@ to LINK if the link is already absolute.
 The current buffer is assumed to be the source buffer for the
 transclusion."
   (when (string-equal "file" (org-element-property :type link))
-    (let ((raw-link (org-element-property :raw-link link)))
-      (unless (file-name-absolute-p raw-link)
+    (let ((path (org-element-property :path link)))
+      (unless (file-name-absolute-p path)
         (org-element-put-property
          link :path
          (expand-file-name
-          raw-link
+          path
           (file-name-directory (buffer-file-name (current-buffer)))))))))
 
 (defun org-transclusion-content-filter-org-exclude-elements (data)



reply via email to

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