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

org-odt.el: Correctly format link to headlines that have description

Browse source 
* lisp/org-odt.el (org-odt-format-org-link): Add check for
presence of description in headline links.

Fix
http://lists.gnu.org/archive/html/emacs-orgmode/2012-11/msg00841.html
This commit is contained in:
Jambunathan K 2012-12-01 11:29:42 +05:30 committed by Bastien Guerry
parent 6b9d77eb8c
commit b495c92239
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org-odt.el
View file

@ -1727,6 +1727,7 @@ ATTR is a string of other attributes of the a element."
((and (string= type "")
(or (not thefile) (string= thefile ""))
(plist-get org-lparse-opt-plist :section-numbers)
(get-text-property 0 'org-no-description fragment)
(setq sec-frag fragment)
(or (string-match "\\`sec\\(\\(-[0-9]+\\)+\\)" sec-frag)
(and (setq sec-frag
@ -1756,7 +1757,11 @@ ATTR is a string of other attributes of the a element."
(when (not (member type '("" "file")))
(setq thefile (concat type ":" thefile)))
(let ((org-odt-suppress-xref nil))
(let ((org-odt-suppress-xref
;; Typeset link to headlines with description, as a
;; regular hyperlink.
(and (string= type "")
(not (get-text-property 0 'org-no-description fragment)))))
(org-odt-format-link
(org-xml-format-desc desc) thefile attr)))))))