# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744143524 0
# Node ID 09cb5e07f8a3aff3018ecd7e3bdfffe7e67d9386
# Parent  109294166e68adfc64d9557f2891816b2c19cdac
(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.

diff -r 109294166e68 -r 09cb5e07f8a3 lisp/man.el
--- 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