mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 14:32:52 +00:00
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.
This commit is contained in:
parent
47bcdce19b
commit
0db972ad63
17
lisp/ox.el
17
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
|
||||
|
|
Loading…
Reference in a new issue