From 4ae1fdf63a4bde9bf12159db20e84552fd82c0a2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 21 Jan 2004 03:09:06 +0000 Subject: [PATCH] (texinfo-mode): Remove ^ from outline-regexp. (texinfo-show-structure): Explicitly add ^, and simplify. --- lisp/textmodes/texinfo.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 91ca7a37ee1..3c5559897b4 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el @@ -1,6 +1,6 @@ ;;; texinfo.el --- major mode for editing Texinfo files -;; Copyright (C) 1985,88,89,90,91,92,93,96,97,2000,01,03, 04 +;; Copyright (C) 1985,88,89,90,91,92,93,96,97,2000,01,03,04 ;; Free Software Foundation, Inc. ;; Author: Robert J. Chassell @@ -616,7 +616,7 @@ value of `texinfo-mode-hook'." (mapcar (lambda (x) (cons (concat "@" (car x)) (cadr x))) texinfo-section-list)) (set (make-local-variable 'outline-regexp) - (concat "^" (regexp-opt (mapcar 'car outline-heading-alist) t) + (concat (regexp-opt (mapcar 'car outline-heading-alist) t) "\\>")) (make-local-variable 'tex-start-of-header) @@ -904,9 +904,8 @@ to jump to the corresponding spot in the Texinfo source file." ;; Second, create and format an *Occur* buffer (save-excursion (goto-char (point-min)) - (if nodes-too - (occur (concat "^@node\\>\\|" outline-regexp)) - (occur outline-regexp))) + (occur (concat "^\\(?:" (if nodes-too "@node\\>\\|") + outline-regexp "\\)"))) (pop-to-buffer "*Occur*") (goto-char (point-min)) (let ((inhibit-read-only t)) -- 2.11.4.GIT