From 95cc610e064e091fe530e1ad7924c76bbffc39e5 Mon Sep 17 00:00:00 2001 From: "Robert J. Chassell" Date: Wed, 10 Nov 1993 00:02:27 +0000 Subject: [PATCH] (texinfo-show-structure): Indent appendices properly. --- lisp/textmodes/texinfo.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 12ea7c55aba..390629f9edd 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el @@ -541,26 +541,30 @@ to jump to the corresponding spot in the Texinfo source file." (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) -- 2.39.5