Mercurial > emacs
changeset 7452:359c1d0a565e
(Man-heading-regexp): Fix pattern.
(Man-build-section-alist): Use match data, not bol/eol.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 11 May 1994 02:27:28 +0000 |
| parents | a3d9cc59d593 |
| children | 9b14642f7d52 |
| files | lisp/man.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Wed May 11 02:15:50 1994 +0000 +++ b/lisp/man.el Wed May 11 02:27:28 1994 +0000 @@ -199,7 +199,7 @@ (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 @@ (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 ()