(woman-man.conf-path): Doc fix.

(woman-parse-man.conf): Also parse OPTIONAL_MANPATH.  (Suggested
by Stefan Reich <xsteve@nit.at>.)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4a237696188bf14fdc0798f0afc66508f652506f..f357a7dca347faddfda5c8476cc6cae31a96db6f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-07  Francis J. Wright  <F.J.Wright@qmul.ac.uk>
+
+       * woman.el (woman-man.conf-path): Doc fix.
+       (woman-parse-man.conf): Also parse OPTIONAL_MANPATH.
+
 2004-03-07  Eli Zaretskii  <eliz@elta.co.il>
 
        * sort.el (sort-columns): Remove ms-dos from the list of systems

diff --git a/lisp/woman.el b/lisp/woman.el
index 6946930505f3e14ae9381c534193003e902be04d..cce6d4ca5e11298ca94424bfdb2c5e254b0fc0f6 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -539,9 +539,9 @@ Change only via `Customization' or the function `add-hook'."
        (mapcar 'woman-Cyg-to-Win path)
       path))
   "*List of dirs to search and/or files to try for man config file.
-A trailing separator (`/' for UNIX etc.) on directories is optional
-and the filename used if a directory is specified is the first to
-match the regexp \"man.*\\.conf\".
+A trailing separator (`/' for UNIX etc.) on directories is optional,
+and the filename is used if a directory specified is the first to
+contain the strings \"man\" and \".conf\" (in that order).
 If MANPATH is not set but a config file is found then it is parsed
 instead to provide a default value for `woman-manpath'."
   :type '(repeat string)
@@ -554,7 +554,9 @@ Look in `woman-man.conf-path' and return a value for `woman-manpath'.
 Concatenate data from all lines in the config file of the form
   MANPATH  /usr/man
 or
-  MANDATORY_MANPATH  /usr/man"
+  MANDATORY_MANPATH  /usr/man
+or
+  OPTIONAL_MANPATH  /usr/man"
   ;; Functionality suggested by Charles Curley.
   (let ((path woman-man.conf-path)
        file manpath)
@@ -574,7 +576,7 @@ or
                    (while (re-search-forward
                            ;; `\(?: ... \)' is a "shy group"
                            "\
-^[ \t]*\\(?:MANDATORY_\\)?MANPATH[ \t]+\\(\\S-+\\)" nil t)
+^[ \t]*\\(?:MANDATORY_\\|OPTIONAL_\\)?MANPATH[ \t]+\\(\\S-+\\)" nil t)
                      (setq manpath (cons (match-string 1) manpath)))
                    manpath))
                 ))