# HG changeset patch
# User Robert J. Chassell <bob@rattlesnake.com>
# Date 752889747 0
# Node ID e84aed67d3c65cda2abcc59ea754f3af9e1a5928
# Parent  51039884789dbcc710bf9d7713581902c8526148
(texinfo-show-structure): Indent appendices properly.

diff -r 51039884789d -r e84aed67d3c6 lisp/textmodes/texinfo.el
--- 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)