mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-14 17:19:16 -07:00
Code Issues Projects Releases Wiki Activity

(Man-heading-regexp): Fix pattern.

Browse source 
(Man-build-section-alist): Use match data, not bol/eol.
This commit is contained in:
Karl Heuer 1994-05-11 02:27:28 +00:00
parent a0a2cc0050
commit eef4ad20e7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/man.el
View file

@ -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 ()