diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-01-21 03:09:06 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-01-21 03:09:06 +0000 |
| commit | 4ae1fdf63a4bde9bf12159db20e84552fd82c0a2 (patch) | |
| tree | e5da4e7abc00c85cb780bceda290d61d336226ee /lisp/textmodes/texinfo.el | |
| parent | 5c9659d3f6a8d29925bec34376f3e21f4a2deade (diff) | |
| download | emacs-4ae1fdf63a4bde9bf12159db20e84552fd82c0a2.tar.gz | |
(texinfo-mode): Remove ^ from outline-regexp.
(texinfo-show-structure): Explicitly add ^, and simplify.
Diffstat (limited to 'lisp/textmodes/texinfo.el')
| -rw-r--r-- | lisp/textmodes/texinfo.el | 9 |
1 files 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)) |