Mercurial > emacs

changeset 4945:e84aed67d3c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(texinfo-show-structure): Indent appendices properly.
author Robert J. Chassell <bob@rattlesnake.com>
date Wed, 10 Nov 1993 00:02:27 +0000
parents 51039884789d
children 6aeb2c705774
files lisp/textmodes/texinfo.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/texinfo.el	Tue Nov 09 23:56:43 1993 +0000
+++ b/lisp/textmodes/texinfo.el	Wed Nov 10 00:02:27 1993 +0000
@@ -541,26 +541,30 @@
       (re-search-forward ":")
       (setq margin
             (cond
-             ((looking-at (concat "@" texinfo-chapter-level-regexp)) 5)
+             ((looking-at
+               (concat "@\\(" texinfo-chapter-level-regexp "\\)")) 5)
              ;; ((looking-at "@chapter ") 5)
              ;; ((looking-at "@unnumbered ") 5)
              ;; ((looking-at "@appendix ") 5)
              ;; ((looking-at "@majorheading ") 5)
              ;; ((looking-at "@chapheading ") 5)
 
-             ((looking-at (concat "@" texinfo-section-level-regexp)) 9)
+             ((looking-at
+               (concat "@\\(" texinfo-section-level-regexp "\\)")) 9)
              ;; ((looking-at "@section ") 9)
              ;; ((looking-at "@unnumberedsec ") 9)
              ;; ((looking-at "@appendixsec ") 9)
              ;; ((looking-at "@heading ") 9)
 
-             ((looking-at (concat "@" texinfo-subsection-level-regexp)) 13)
+             ((looking-at 
+               (concat "@\\(" texinfo-subsection-level-regexp "\\)")) 13)
              ;; ((looking-at "@subsection ") 13)
              ;; ((looking-at "@unnumberedsubsec ") 13)
              ;; ((looking-at "@appendixsubsec ") 13)
              ;; ((looking-at "@subheading ") 13)
 
-             ((looking-at (concat "@" texinfo-subsubsection-level-regexp)) 17)
+             ((looking-at 
+               (concat "@\\(" texinfo-subsection-level-regexp "\\)")) 13)
              ;; ((looking-at "@subsubsection ") 17)
              ;; ((looking-at "@unnumberedsubsubsec ") 17)
              ;; ((looking-at "@appendixsubsubsec ") 17)