mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-07-17 00:46:25 +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
|
||||
(headline
|
||||
(format "@ref{%s,%s}"
|
||||
(org-export-data
|
||||
(or
|
||||
(org-element-property :texinfo-menu-title destination)
|
||||
(org-element-property :title destination)) info)
|
||||
(or (org-element-property :texinfo-menu-title destination)
|
||||
(org-element-property :title destination))
|
||||
(or desc "")))
|
||||
(otherwise
|
||||
(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
|
||||
(headline
|
||||
(format "@ref{%s,%s}"
|
||||
(org-export-data
|
||||
(or
|
||||
(org-element-property :texinfo-menu-title destination)
|
||||
(org-element-property :title destination)) info)
|
||||
(or (org-element-property :texinfo-menu-title destination)
|
||||
(org-element-property :title destination))
|
||||
(or desc "")))
|
||||
(otherwise
|
||||
(let ((path (org-export-solidify-link-text path)))
|
||||
|
|
Loading…
Reference in a new issue