forked from mirrors/org-mode
ox-ascii: Small refactoring
* lisp/ox-ascii.el (org-ascii--describe-links): Small refactoring.
This commit is contained in:
parent
602fca424d
commit
3135d24239
|
@ -929,11 +929,7 @@ channel."
|
||||||
((not (org-element-contents link)) nil)
|
((not (org-element-contents link)) nil)
|
||||||
;; Do not add a link already handled by custom export
|
;; Do not add a link already handled by custom export
|
||||||
;; functions.
|
;; functions.
|
||||||
((let ((protocol (nth 2 (assoc type org-link-protocols)))
|
((org-export-custom-protocol-maybe link anchor 'ascii) nil)
|
||||||
(path (org-element-property :path link)))
|
|
||||||
(and (functionp protocol)
|
|
||||||
(funcall protocol (org-link-unescape path) anchor 'ascii)))
|
|
||||||
nil)
|
|
||||||
(t
|
(t
|
||||||
(concat
|
(concat
|
||||||
(org-ascii--fill-string
|
(org-ascii--fill-string
|
||||||
|
|
Loading…
Reference in New Issue