diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2021-04-10 12:28:08 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2021-04-10 12:28:08 +0200 |
commit | 94be20a33412b0e6489e07abea10117bc0d21524 (patch) | |
tree | ae320d4c17e5855439ba8f585dbb341aa44cef90 | |
parent | 19947a6e412ba7b14d1d826d0503011622a8b9ad (diff) | |
download | org-mode-94be20a33412b0e6489e07abea10117bc0d21524.tar.gz |
ox-texinfo: Fix references to low-level headlines
* lisp/ox-texinfo.el (org-texinfo-headline): Provide an anchor for
low-level headlines.
Reported-by: Ramesh Nedunchezian <rameshnedunchezian@outlook.com>
<http://lists.gnu.org/r/emacs-orgmode/2021-04/msg00206.html>
-rw-r--r-- | lisp/ox-texinfo.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 87e1798..52c8180 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -899,11 +899,12 @@ holding contextual information." (contents (concat "\n" (if (org-string-nw-p contents) (concat "\n" contents) "") - (and index (format "\n@printindex %s\n" index))))) + (and index (format "\n@printindex %s\n" index)))) + (node (org-texinfo--get-node headline info))) (if (not command) (concat (and (org-export-first-sibling-p headline info) (format "@%s\n" (if numbered? 'enumerate 'itemize))) - "@item\n" full-text "\n" + (format "@item\n@anchor{%s}%s\n" node full-text) contents (if (org-export-last-sibling-p headline info) (format "@end %s" (if numbered? 'enumerate 'itemize)) @@ -911,8 +912,7 @@ holding contextual information." (concat ;; Even if HEADLINE is using @subheading and al., leave an ;; anchor so cross-references in the Org document still work. - (format (if notoc? "@anchor{%s}\n" "@node %s\n") - (org-texinfo--get-node headline info)) + (format (if notoc? "@anchor{%s}\n" "@node %s\n") node) (format command full-text) contents)))))) |