From c470edba7716d10a0cd765fec15796b3798d5c20 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 3 Nov 2017 11:35:53 +0100 Subject: [PATCH] ox-texinfo: Prettify adjunct for indentical nodes. * lisp/ox-texinfo.el (org-texinfo--get-node): Nicer adjunct for identical nodes. --- lisp/ox-texinfo.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el index 10e1732c8..77a4b2962 100644 --- a/lisp/ox-texinfo.el +++ b/lisp/ox-texinfo.el @@ -481,7 +481,7 @@ anchor name is unique." (name basename)) ;; Ensure NAME is unique and not reserved node name "Top". (while (or (equal name "Top") (rassoc name cache)) - (setq name (concat basename (format " %d" (cl-incf salt))))) + (setq name (concat basename (format " (%d)" (cl-incf salt))))) (plist-put info :texinfo-node-cache (cons (cons datum name) cache)) name))))