Mercurial > emacs
comparison lisp/textmodes/texinfmt.el @ 55752:a7f7c0fa52a6
(texinfo-print-index): Print index line numbers in the new Texinfo 4.7 format.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sun, 23 May 2004 20:55:28 +0000 |
| parents | d60ea4b622fe |
| children | f813d67d717a |
comparison
equal
deleted
inserted
replaced
| 55751:450a4292b3b7 | 55752:a7f7c0fa52a6 |
|---|---|
| 3030 (if file (concat "(" file ")") "") | 3030 (if file (concat "(" file ")") "") |
| 3031 (nth 1 (car indexelts)) ".") | 3031 (nth 1 (car indexelts)) ".") |
| 3032 (indent-to 54) | 3032 (indent-to 54) |
| 3033 (insert | 3033 (insert |
| 3034 (if (nth 2 (car indexelts)) | 3034 (if (nth 2 (car indexelts)) |
| 3035 (format " %d." (nth 2 (car indexelts))) | 3035 (format " (line %3d)" (1+ (nth 2 (car indexelts)))) |
| 3036 "") | 3036 "") |
| 3037 "\n")) | 3037 "\n")) |
| 3038 ;; index entries from @include'd file | 3038 ;; index entries from @include'd file |
| 3039 (texinfo-print-index (nth 1 (car indexelts)) | 3039 (texinfo-print-index (nth 1 (car indexelts)) |
| 3040 (nth 2 (car indexelts)))) | 3040 (nth 2 (car indexelts)))) |