mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-24 07:20:29 +00:00
Code

ox-texinfo: Prettify adjunct for indentical nodes.

Browse Source 
* lisp/ox-texinfo.el (org-texinfo--get-node): Nicer adjunct for
  identical nodes.
This commit is contained in:
Nicolas Goaziou 2017-11-03 11:35:53 +01:00
parent f9c09b194f
commit c470edba77
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ox-texinfo.el
View File

@ -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))))