(Man-highlight-references): Doc fix. Reformat code in a more Lisp-ish way.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 434fb78185d391df6c21390e4bc1dd0b33d1fe71..dd264bca5a6d126113b0bfeb1e8b5bb66f609dbf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-19  Eli Zaretskii  <eliz@gnu.org>
+
+       * man.el (Man-highlight-references): Doc fix.  Reformat code in a
+       more Lisp-ish way.
+
 2005-11-19  Slawomir Nowaczyk  <slawomir.nowaczyk.847@student.lu.se> (tiny change)
 
        * ls-lisp.el (ls-lisp-format-file-size): Format file size with 9

diff --git a/lisp/man.el b/lisp/man.el
index 5b5096f157da2d53c3d84a9a0f01e2ca9714d422..52645db16f5945fe3382f1052e0e3b98921d690f 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -919,35 +919,30 @@ Same for the ANSI bold and normal escape sequences."
 (defun Man-highlight-references (&optional xref-man-type)
   "Highlight the references on mouse-over.
 References include items in the SEE ALSO section,
-header file (#include <foo.h>) and files in FILES.
-If XREF-MAN-TYPE is used as the button type for items
-in SEE ALSO section. If it is nil, default type, 
-`Man-xref-man-page' is used."
+header file (#include <foo.h>), and files in FILES.
+If optional argument XREF-MAN-TYPE is non-nil, it used as the
+button type for items in SEE ALSO section.  If it is nil, the
+default type, `Man-xref-man-page' is used for the buttons."
   ;; `Man-highlight-references' is used from woman.el, too.
   ;; woman.el doesn't set `Man-arguments'.
   (unless Man-arguments
     (setq Man-arguments ""))
   (if (string-match "-k " Man-arguments)
       (progn
-       (Man-highlight-references0
-        nil Man-reference-regexp 1 nil
-        (or xref-man-type 'Man-xref-man-page))
-       (Man-highlight-references0
-        nil Man-apropos-regexp 1 (lambda () 
-                                   (format "%s(%s)"
-                                           (match-string 1)
-                                           (match-string 2)))
-        (or xref-man-type 'Man-xref-man-page))
-       )
-    (Man-highlight-references0
-     Man-see-also-regexp Man-reference-regexp 1 nil
-     (or xref-man-type 'Man-xref-man-page))
-    (Man-highlight-references0
-     Man-synopsis-regexp Man-header-regexp 0 2
-     'Man-xref-header-file)
-    (Man-highlight-references0
-     Man-files-regexp Man-normal-file-regexp 0 0
-     'Man-xref-normal-file)))
+       (Man-highlight-references0 nil Man-reference-regexp 1 nil
+                                  (or xref-man-type 'Man-xref-man-page))
+       (Man-highlight-references0 nil Man-apropos-regexp 1
+                                  (lambda ()
+                                    (format "%s(%s)"
+                                            (match-string 1)
+                                            (match-string 2)))
+                                  (or xref-man-type 'Man-xref-man-page)))
+    (Man-highlight-references0 Man-see-also-regexp Man-reference-regexp 1 nil
+                              (or xref-man-type 'Man-xref-man-page))
+    (Man-highlight-references0 Man-synopsis-regexp Man-header-regexp 0 2
+                              'Man-xref-header-file)
+    (Man-highlight-references0 Man-files-regexp Man-normal-file-regexp 0 0
+                              'Man-xref-normal-file)))
 
 (defun Man-highlight-references0 (start-section regexp button-pos target type)
   ;; Based on `Man-build-references-alist'