Mercurial > emacs
comparison lisp/textmodes/texinfo.el @ 4945:e84aed67d3c6
(texinfo-show-structure): Indent appendices properly.
| author | Robert J. Chassell <bob@rattlesnake.com> |
|---|---|
| date | Wed, 10 Nov 1993 00:02:27 +0000 |
| parents | 9591fdbc2868 |
| children | 6aeb2c705774 |
comparison
equal
deleted
inserted
replaced
| 4944:51039884789d | 4945:e84aed67d3c6 |
|---|---|
| 539 (let ((margin 5)) | 539 (let ((margin 5)) |
| 540 (while (re-search-backward "^ *[0-9]*:" nil 0) | 540 (while (re-search-backward "^ *[0-9]*:" nil 0) |
| 541 (re-search-forward ":") | 541 (re-search-forward ":") |
| 542 (setq margin | 542 (setq margin |
| 543 (cond | 543 (cond |
| 544 ((looking-at (concat "@" texinfo-chapter-level-regexp)) 5) | 544 ((looking-at |
| 545 (concat "@\\(" texinfo-chapter-level-regexp "\\)")) 5) | |
| 545 ;; ((looking-at "@chapter ") 5) | 546 ;; ((looking-at "@chapter ") 5) |
| 546 ;; ((looking-at "@unnumbered ") 5) | 547 ;; ((looking-at "@unnumbered ") 5) |
| 547 ;; ((looking-at "@appendix ") 5) | 548 ;; ((looking-at "@appendix ") 5) |
| 548 ;; ((looking-at "@majorheading ") 5) | 549 ;; ((looking-at "@majorheading ") 5) |
| 549 ;; ((looking-at "@chapheading ") 5) | 550 ;; ((looking-at "@chapheading ") 5) |
| 550 | 551 |
| 551 ((looking-at (concat "@" texinfo-section-level-regexp)) 9) | 552 ((looking-at |
| 553 (concat "@\\(" texinfo-section-level-regexp "\\)")) 9) | |
| 552 ;; ((looking-at "@section ") 9) | 554 ;; ((looking-at "@section ") 9) |
| 553 ;; ((looking-at "@unnumberedsec ") 9) | 555 ;; ((looking-at "@unnumberedsec ") 9) |
| 554 ;; ((looking-at "@appendixsec ") 9) | 556 ;; ((looking-at "@appendixsec ") 9) |
| 555 ;; ((looking-at "@heading ") 9) | 557 ;; ((looking-at "@heading ") 9) |
| 556 | 558 |
| 557 ((looking-at (concat "@" texinfo-subsection-level-regexp)) 13) | 559 ((looking-at |
| 560 (concat "@\\(" texinfo-subsection-level-regexp "\\)")) 13) | |
| 558 ;; ((looking-at "@subsection ") 13) | 561 ;; ((looking-at "@subsection ") 13) |
| 559 ;; ((looking-at "@unnumberedsubsec ") 13) | 562 ;; ((looking-at "@unnumberedsubsec ") 13) |
| 560 ;; ((looking-at "@appendixsubsec ") 13) | 563 ;; ((looking-at "@appendixsubsec ") 13) |
| 561 ;; ((looking-at "@subheading ") 13) | 564 ;; ((looking-at "@subheading ") 13) |
| 562 | 565 |
| 563 ((looking-at (concat "@" texinfo-subsubsection-level-regexp)) 17) | 566 ((looking-at |
| 567 (concat "@\\(" texinfo-subsection-level-regexp "\\)")) 13) | |
| 564 ;; ((looking-at "@subsubsection ") 17) | 568 ;; ((looking-at "@subsubsection ") 17) |
| 565 ;; ((looking-at "@unnumberedsubsubsec ") 17) | 569 ;; ((looking-at "@unnumberedsubsubsec ") 17) |
| 566 ;; ((looking-at "@appendixsubsubsec ") 17) | 570 ;; ((looking-at "@appendixsubsubsec ") 17) |
| 567 ;; ((looking-at "@subsubheading ") 17) | 571 ;; ((looking-at "@subsubheading ") 17) |
| 568 (t margin))) | 572 (t margin))) |