Mercurial > emacs
changeset 4377:09cb5e07f8a3
(Man-build-references-alist): When setting word,
use only what Man-reference-regexp matched.
(Man-reference-regexp): Don't match starting with a period.
(Man-first-heading-regexp): Allow leading space.
(Man-heading-regexp): Allow leading space.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 31 Jul 1993 18:32:04 +0000 |
| parents | 109294166e68 |
| children | 088883bdcd70 |
| files | lisp/man.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Sat Jul 31 07:33:02 1993 +0000 +++ b/lisp/man.el Sat Jul 31 18:32:04 1993 +0000 @@ -185,18 +185,19 @@ (defvar Man-section-regexp "[0-9][a-zA-Z+]*" "*Regular expression describing a manpage section within parentheses.") -(defvar Man-heading-regexp "^[A-Z]" +(defvar Man-heading-regexp "^ ?[A-Z]" "*Regular expression describing a manpage heading entry.") (defvar Man-see-also-regexp "SEE ALSO" "*Regular expression for SEE ALSO heading (or your equivalent). This regexp should not start with a `^' character.") -(defvar Man-first-heading-regexp "^NAME$\\|^No manual entry for .*$" +(defvar Man-first-heading-regexp "^ ?NAME$\\|^ ?No manual entry for .*$" "*Regular expression describing first heading on a manpage. This regular expression should start with a `^' character.") -(defvar Man-reference-regexp "[-a-zA-Z0-9_.]+\\(([0-9][a-zA-Z+]*)\\)?" +(defvar Man-reference-regexp + "[-a-zA-Z0-9_][-a-zA-Z0-9_.]*\\(([0-9][a-zA-Z+]*)\\)?" "*Regular expression describing a reference in the SEE ALSO section.") (defvar Man-switches "" @@ -593,9 +594,8 @@ (back-to-indentation) (while (and (not (eobp)) (/= (point) runningpoint)) (setq runningpoint (point)) - (let* ((bow (point)) - (eow (re-search-forward Man-reference-regexp end t)) - (word (buffer-substring bow (match-end 0))) + (let* ((eow (re-search-forward Man-reference-regexp end t)) + (word (buffer-substring (match-beginning 0) (match-end 0))) (len (1- (length word)))) (if (not eow) nil (if hyphenated