procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/info.el (Info-toc-insert): Suppress same section names as node names.

Browse source 
Add indentation to section lines.  (Bug#23142)
This commit is contained in:
Juri Linkov 2019-07-29 21:18:34 +03:00
parent 5483e44730
commit 199a1b5cd4
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/info.el
View file

@ -2452,11 +2452,12 @@ Table of contents is created from the tree structure of menus."
"Insert table of contents with references to nodes."
(let ((section "Top"))
(while nodes
(let ((node (assoc (car nodes) node-list)))
(unless (member (nth 2 node) (list nil section))
(insert (setq section (nth 2 node)) "\n"))
(insert (make-string level ?\t))
(insert "*Note " (car nodes) ":: \n")
(let ((node (assoc (car nodes) node-list))
(indentation (make-string level ?\t)))
(when (and (not (member (nth 2 node) (list nil section)))
(not (equal (nth 1 node) (nth 2 node))))
(insert indentation (setq section (nth 2 node)) "\n"))
(insert indentation "*Note " (car nodes) ":: \n")
(Info-toc-insert (nth 3 node) node-list (1+ level) curr-file)
(setq nodes (cdr nodes))))))