From 6f12dfbcb06a463bed9f0b4d53629dc3f147d351 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 6 Jun 2017 00:21:53 +0200 Subject: [PATCH] ox-texinfo: Fix @ref{...} handling * lisp/ox-texinfo.el (org-texinfo-link): Fix @ref{...} handling. Use third argument as description. Without description, use one-argument @ref. --- lisp/ox-texinfo.el | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 895923f44..ec97b5a26 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -974,16 +974,12 @@ INFO is a plist holding contextual information. See (if desc (format "@uref{file://%s,%s}" destination desc) (format "@uref{file://%s}" destination))) (`headline - (format "@ref{%s,%s}" - (org-texinfo--get-node destination info) - (cond - (desc) - ((org-export-numbered-headline-p destination info) - (mapconcat - #'number-to-string - (org-export-get-headline-number destination info) ".")) - (t (org-export-data - (org-element-property :title destination) info))))) + (let ((node-name (org-texinfo--get-node destination info))) + (if desc + (format "@ref{%s, , %s}" + node-name + (org-texinfo--sanitize-node desc)) + (format "@ref{%s}" node-name)))) (_ (format "@ref{%s,,%s}" (org-texinfo--get-node destination info) -- 2.11.4.GIT