From 0db972ad63859c3220ecc9d236003071bc474d6f Mon Sep 17 00:00:00 2001 From: TEC Date: Sat, 10 Dec 2022 21:36:58 +0800 Subject: [PATCH] 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 c14eafe44..737703f11 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