mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

Merge branch 'maint'

Browse Source
This commit is contained in:
Nicolas Goaziou 2016-04-26 18:47:43 +02:00
commit ce748a7ed5
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ox-ascii.el
View File

@ -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.