diff options
| author | Juri Linkov | 2019-07-29 21:18:34 +0300 |
|---|---|---|
| committer | Juri Linkov | 2019-07-29 21:18:34 +0300 |
| commit | 199a1b5cd4845f432ee7231e0f7cdd2b6ebddf37 (patch) | |
| tree | dc513380b8656ef3ead890d15d2ffe07c6d5b893 | |
| parent | 5483e44730d39284ca8fdfa360b92646bf23ba3c (diff) | |
| download | emacs-199a1b5cd4845f432ee7231e0f7cdd2b6ebddf37.tar.gz emacs-199a1b5cd4845f432ee7231e0f7cdd2b6ebddf37.zip | |
* lisp/info.el (Info-toc-insert): Suppress same section names as node names.
Add indentation to section lines. (Bug#23142)
| -rw-r--r-- | lisp/info.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/info.el b/lisp/info.el index 3203c5f171e..cc18ea11f33 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -2452,11 +2452,12 @@ Table of contents is created from the tree structure of menus." | |||
| 2452 | "Insert table of contents with references to nodes." | 2452 | "Insert table of contents with references to nodes." |
| 2453 | (let ((section "Top")) | 2453 | (let ((section "Top")) |
| 2454 | (while nodes | 2454 | (while nodes |
| 2455 | (let ((node (assoc (car nodes) node-list))) | 2455 | (let ((node (assoc (car nodes) node-list)) |
| 2456 | (unless (member (nth 2 node) (list nil section)) | 2456 | (indentation (make-string level ?\t))) |
| 2457 | (insert (setq section (nth 2 node)) "\n")) | 2457 | (when (and (not (member (nth 2 node) (list nil section))) |
| 2458 | (insert (make-string level ?\t)) | 2458 | (not (equal (nth 1 node) (nth 2 node)))) |
| 2459 | (insert "*Note " (car nodes) ":: \n") | 2459 | (insert indentation (setq section (nth 2 node)) "\n")) |
| 2460 | (insert indentation "*Note " (car nodes) ":: \n") | ||
| 2460 | (Info-toc-insert (nth 3 node) node-list (1+ level) curr-file) | 2461 | (Info-toc-insert (nth 3 node) node-list (1+ level) curr-file) |
| 2461 | (setq nodes (cdr nodes)))))) | 2462 | (setq nodes (cdr nodes)))))) |
| 2462 | 2463 | ||