mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 17:32:51 +00:00
ox-texinfo: Fix "cross reference to non-existent node" error
* lisp/ox-texinfo.el (org-texinfo-link): Do not transform path part of internal links.
This commit is contained in:
parent
c44f8c0af0
commit
16118a2af8
|
@ -1173,10 +1173,8 @@ INFO is a plist holding contextual information. See
|
||||||
;; LINK points to an headline. Use the headline as the NODE target
|
;; LINK points to an headline. Use the headline as the NODE target
|
||||||
(headline
|
(headline
|
||||||
(format "@ref{%s,%s}"
|
(format "@ref{%s,%s}"
|
||||||
(org-export-data
|
(or (org-element-property :texinfo-menu-title destination)
|
||||||
(or
|
(org-element-property :title destination))
|
||||||
(org-element-property :texinfo-menu-title destination)
|
|
||||||
(org-element-property :title destination)) info)
|
|
||||||
(or desc "")))
|
(or desc "")))
|
||||||
(otherwise
|
(otherwise
|
||||||
(let ((path (org-export-solidify-link-text path)))
|
(let ((path (org-export-solidify-link-text path)))
|
||||||
|
@ -1198,10 +1196,8 @@ INFO is a plist holding contextual information. See
|
||||||
;; LINK points to an headline. Use the headline as the NODE target
|
;; LINK points to an headline. Use the headline as the NODE target
|
||||||
(headline
|
(headline
|
||||||
(format "@ref{%s,%s}"
|
(format "@ref{%s,%s}"
|
||||||
(org-export-data
|
(or (org-element-property :texinfo-menu-title destination)
|
||||||
(or
|
(org-element-property :title destination))
|
||||||
(org-element-property :texinfo-menu-title destination)
|
|
||||||
(org-element-property :title destination)) info)
|
|
||||||
(or desc "")))
|
(or desc "")))
|
||||||
(otherwise
|
(otherwise
|
||||||
(let ((path (org-export-solidify-link-text path)))
|
(let ((path (org-export-solidify-link-text path)))
|
||||||
|
|
Loading…
Reference in a new issue