diff options
author | Richard M. Stallman <[email protected]> | 1993-07-31 18:32:04 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-07-31 18:32:04 +0000 |
commit | 3eedeb851bd2f32332b0370d3f73805071cafbc7 (patch) | |
tree | 8996b2347353fba452d6cb740900dbabce17514c | |
parent | bbd93e412956015a91a2d3c58ad9629f9915eb22 (diff) |
(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.
-rw-r--r-- | lisp/man.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/man.el b/lisp/man.el index 4eea03d8b5..536dbd350d 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -185,18 +185,19 @@ the manpage buffer.") (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 @@ The following key bindings are currently in effect in the buffer: (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 |