forked from mirrors/org-mode
org-odt.el: Correctly format link to headlines that have description
* 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:
parent
6b9d77eb8c
commit
b495c92239
|
@ -1727,6 +1727,7 @@ ATTR is a string of other attributes of the a element."
|
||||||
((and (string= type "")
|
((and (string= type "")
|
||||||
(or (not thefile) (string= thefile ""))
|
(or (not thefile) (string= thefile ""))
|
||||||
(plist-get org-lparse-opt-plist :section-numbers)
|
(plist-get org-lparse-opt-plist :section-numbers)
|
||||||
|
(get-text-property 0 'org-no-description fragment)
|
||||||
(setq sec-frag fragment)
|
(setq sec-frag fragment)
|
||||||
(or (string-match "\\`sec\\(\\(-[0-9]+\\)+\\)" sec-frag)
|
(or (string-match "\\`sec\\(\\(-[0-9]+\\)+\\)" sec-frag)
|
||||||
(and (setq 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")))
|
(when (not (member type '("" "file")))
|
||||||
(setq thefile (concat type ":" thefile)))
|
(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-odt-format-link
|
||||||
(org-xml-format-desc desc) thefile attr)))))))
|
(org-xml-format-desc desc) thefile attr)))))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue