diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-04-26 18:47:43 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-04-26 18:47:43 +0200 |
commit | ce748a7ed5fd7b9b57c0a0e8cdcc65a28c8ee06a (patch) | |
tree | b9d74af7fa7811ec0fc09d3b9c36880c8373b02d | |
parent | da4db33132e83ed1b2cd4b8704d1865890f6f257 (diff) | |
parent | 91ea3920df85f530a31a80d6ed300d318261aeee (diff) | |
download | org-mode-ce748a7ed5fd7b9b57c0a0e8cdcc65a28c8ee06a.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/ox-ascii.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index 68a221f..e8088ba 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -886,7 +886,13 @@ is a plist used as a communication channel." (gethash link (plist-get info :exported-data))) (not (member footprint seen))) (push footprint seen) link))))) - (org-element-map element 'link unique-link-p info nil nil t))) + (org-element-map (if (eq (org-element-type element) 'section) + element + ;; In a headline, only retrieve links in title + ;; and relative section, not in children. + (list (org-element-property :title element) + (car (org-element-contents element)))) + 'link unique-link-p info nil 'headline t))) (defun org-ascii--describe-links (links width info) "Return a string describing a list of links. |