tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Nicolas Goaziou 2015-10-18 09:28:30 +02:00
parent bf91460d39 8e4650c887
commit 486d947761
1 changed files with 16 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lisp/ox-ascii.el
View file

@ -916,23 +916,22 @@ channel."
;; Id and custom-id links: Headlines refer to their numbering.
((member type '("custom-id" "id"))
(let ((dest (org-export-resolve-id-link link info)))
(if (concat
(org-ascii--fill-string
(format
"[%s] %s"
anchor
(if (stringp dest) ; External file.
dest
(format
(org-ascii--translate "See section %s" info)
(if (org-export-numbered-headline-p dest info)
(mapconcat #'number-to-string
(org-export-get-headline-number dest info)
".")
(org-export-data
(org-element-property :title dest) info)))))
width info)
"\n\n"))))
(concat
(org-ascii--fill-string
(format
"[%s] %s"
anchor
(if (stringp dest) ; External file.
dest
(format
(org-ascii--translate "See section %s" info)
(if (org-export-numbered-headline-p dest info)
(mapconcat #'number-to-string
(org-export-get-headline-number dest info)
".")
(org-export-data (org-element-property :title dest) info)))))
width info)
"\n\n")))
;; Do not add a link that cannot be resolved and doesn't have
;; any description: destination is already visible in the
;; paragraph.