ox: Tiny refactoring
This commit is contained in:
parent
9f18368311
commit
a709aed145
|
@ -4044,10 +4044,11 @@ meant to be translated with `org-export-data' or alike."
|
||||||
;; `org-export-data' for further processing, depending on
|
;; `org-export-data' for further processing, depending on
|
||||||
;; `org-export-with-broken-links' value.
|
;; `org-export-with-broken-links' value.
|
||||||
|
|
||||||
(if (version< emacs-version "24.4") ; `define-error' is 24.4+.
|
;; FIXME: Remove this when support for Emacsen < 24.4 is dropped.
|
||||||
(put 'org-link-broken 'error-conditions
|
(if (fboundp 'define-error)
|
||||||
(copy-sequence (cons 'org-link-broken (get 'error 'error-conditions))))
|
(define-error 'org-link-broken "Unable to resolve link; aborting")
|
||||||
(define-error 'org-link-broken "Unable to resolve link; aborting"))
|
(put 'org-link-broken 'error-conditions
|
||||||
|
(copy-sequence (cons 'org-link-broken (get 'error 'error-conditions)))))
|
||||||
|
|
||||||
(defun org-export-custom-protocol-maybe (link desc backend)
|
(defun org-export-custom-protocol-maybe (link desc backend)
|
||||||
"Try exporting LINK with a dedicated function.
|
"Try exporting LINK with a dedicated function.
|
||||||
|
|
Loading…
Reference in New Issue