comparison lisp/man.el @ 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.

4376:109294166e68

  "*Hooks for Man mode.")

(defvar Man-section-regexp "[0-9][a-zA-Z+]*"
  "*Regular expression describing a manpage section within parentheses.")

(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 .*$"
  "*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+]*)\\)?"
  "*Regular expression describing a reference in the SEE ALSO section.")

(defvar Man-switches ""
  "*Switches passed to the man command, as a single string.")

	  (narrow-to-region start end)
	  (goto-char (point-min))
	  (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)))
		   (len (1- (length word))))
	      (if (not eow) nil
		(if hyphenated
		    (setq word (concat hyphenated word)
			  hyphenated nil))

4377:09cb5e07f8a3

  "*Hooks for Man mode.")

(defvar Man-section-regexp "[0-9][a-zA-Z+]*"
  "*Regular expression describing a manpage section within parentheses.")

(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 .*$"
  "*Regular expression describing first heading on a manpage.
This regular expression should start with a `^' character.")

(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 ""
  "*Switches passed to the man command, as a single string.")

	  (narrow-to-region start end)
	  (goto-char (point-min))
	  (back-to-indentation)
	  (while (and (not (eobp)) (/= (point) runningpoint))
	    (setq runningpoint (point))
	    (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
		    (setq word (concat hyphenated word)
			  hyphenated nil))