diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-05-11 02:27:28 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-05-11 02:27:28 +0000 |
| commit | eef4ad20e7b2e54dc063b53fe86d3dbb6aa6c229 (patch) | |
| tree | a80fcca3bdb9c358e62e4b007b91016d32cedf22 /lisp/man.el | |
| parent | a0a2cc005029dd29791a83375426a4c01620edd9 (diff) | |
| download | emacs-eef4ad20e7b2e54dc063b53fe86d3dbb6aa6c229.tar.gz | |
(Man-heading-regexp): Fix pattern.
(Man-build-section-alist): Use match data, not bol/eol.
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/man.el b/lisp/man.el index 3bca3d7e2b7..29d9bf9f1da 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -199,7 +199,7 @@ the manpage buffer.") (defvar Man-section-regexp "[0-9][a-zA-Z+]*\\|[LNln]" "*Regular expression describing a manpage section within parentheses.") -(defvar Man-heading-regexp "^[ \t]*[A-Z][A-Z \t]+$" +(defvar Man-heading-regexp "^[ \t]*\\([A-Z][A-Z \t]+\\)$" "*Regular expression describing a manpage heading entry.") (defvar Man-see-also-regexp "SEE ALSO" @@ -631,7 +631,7 @@ The following key bindings are currently in effect in the buffer: (let ((case-fold-search nil)) (while (re-search-forward Man-heading-regexp (point-max) t) (aput 'Man-sections-alist - (buffer-substring (Man-linepos 'bol) (Man-linepos))) + (buffer-substring (match-beginning 1) (match-end 1))) (forward-line 1)))) (defun Man-build-references-alist () |