mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

ox: Tiny refactoring

This commit is contained in:
Nicolas Goaziou 2015-10-18 23:06:08 +02:00
parent 9f18368311
commit a709aed145
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ox.el
View File

@ -4044,10 +4044,11 @@ meant to be translated with `org-export-data' or alike."
;; `org-export-data' for further processing, depending on
;; `org-export-with-broken-links' value.
(if (version< emacs-version "24.4") ; `define-error' is 24.4+.
(put 'org-link-broken 'error-conditions
(copy-sequence (cons 'org-link-broken (get 'error 'error-conditions))))
(define-error 'org-link-broken "Unable to resolve link; aborting"))
;; FIXME: Remove this when support for Emacsen < 24.4 is dropped.
(if (fboundp 'define-error)
(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)
"Try exporting LINK with a dedicated function.