diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-04-13 23:50:15 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-04-13 23:50:15 +0200 |
| commit | 3135d242394082c60c89a7941b8ba510a95264de (patch) | |
| tree | 80b3f2eedaf49a324162e3924912d5bff3db4a47 | |
| parent | 602fca424d9c94bd88d2dcf64d5704a2a5c42139 (diff) | |
| download | org-mode-3135d242394082c60c89a7941b8ba510a95264de.tar.gz | |
ox-ascii: Small refactoring
* lisp/ox-ascii.el (org-ascii--describe-links): Small refactoring.
| -rw-r--r-- | lisp/ox-ascii.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 283f74f..68a221f 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -929,11 +929,7 @@ channel." ((not (org-element-contents link)) nil) ;; Do not add a link already handled by custom export ;; functions. - ((let ((protocol (nth 2 (assoc type org-link-protocols))) - (path (org-element-property :path link))) - (and (functionp protocol) - (funcall protocol (org-link-unescape path) anchor 'ascii))) - nil) + ((org-export-custom-protocol-maybe link anchor 'ascii) nil) (t (concat (org-ascii--fill-string |