tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox-texinfo: Improve algorithm to make node names unique 

* lisp/ox-texinfo.el (org-texinfo--get-node): Use numbers to
  differentiate between common base node names instead of "x".
This commit is contained in:
Nicolas Goaziou 2017-06-06 02:14:36 +02:00
parent d44cadbe3e
commit 93bc1b7c7e
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ox-texinfo.el
View File

@ -455,14 +455,17 @@ a communication channel. The function guarantees the node or
anchor name is unique."
(let ((cache (plist-get info :texinfo-node-cache)))
(or (cdr (assq datum cache))
(let ((name
(org-texinfo--sanitize-node
(if (eq (org-element-type datum) 'headline)
(org-export-data (org-export-get-alt-title datum info) info)
(org-export-get-reference datum info)))))
(let* ((salt 0)
(basename
(org-texinfo--sanitize-node
(if (eq (org-element-type datum) 'headline)
(org-export-data (org-export-get-alt-title datum info)
info)
(org-export-get-reference datum info))))
(name basename))
;; Ensure NAME is unique and not reserved node name "Top".
(while (or (equal name "Top") (rassoc name cache))
(setq name (concat name "x")))
(setq name (concat basename (number-to-string (cl-incf salt)))))
(plist-put info :texinfo-node-cache (cons (cons datum name) cache))
name))))