[elpa] externals-release/org 0db972ad63 1/6: ox: Handle failure to localize link

[ELPA Syncer]

branch: externals-release/org
commit 0db972ad63859c3220ecc9d236003071bc474d6f
Author: TEC <git@tecosaur.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    ox: Handle failure to localize link
    
    * lisp/ox.el (org-export-link-localise): When no local copy of the link
    resource could be fetched, produce a warning message and do nothing
    instead of setting the link :path to nil.
---
 lisp/ox.el | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/lisp/ox.el b/lisp/ox.el
index c14eafe44d..737703f11d 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -4612,12 +4612,17 @@ If LINK refers to a remote resource, modify it to point 
to a local
 downloaded copy.  Otherwise, return unchanged LINK."
   (when (org-export-link-remote-p link)
     (let* ((local-path (org-export-link--remote-local-copy link)))
-      (setcdr link
-              (thread-first (cadr link)
-                            (plist-put :type "file")
-                            (plist-put :path local-path)
-                            (plist-put :raw-link (concat "file:" local-path))
-                            list))))
+      (if local-path
+          (setcdr link
+                  (thread-first (cadr link)
+                                (plist-put :type "file")
+                                (plist-put :path local-path)
+                                (plist-put :raw-link (concat "file:" 
local-path))
+                                list))
+        (display-warning
+         '(org export)
+         (format "unable to obtain local copy of %s"
+                 (org-element-property :raw-link link))))))
   link)
 
 ;;;; For References