(custom-add-see-also, custom-add-parent-links): Make sure the links use

the `custom-link' face.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fcb4fac..00eace0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-13  Martin Rudalics  <rudalics@gmx.at>  (tiny change)
+
+       * cus-edit.el (custom-add-see-also, custom-add-parent-links): Make
+       sure the links use the `custom-link' face.
+
 2006-01-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/ld-script.el (auto-mode-alist): Use \' rather than $.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 2d4603d..7b05634 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2201,7 +2201,10 @@ Insert PREFIX first if non-nil."
        (insert prefix))
       (insert "See also ")
       (while links
-       (push (widget-create-child-and-convert widget (car links))
+       (push (widget-create-child-and-convert
+              widget (car links)
+              :button-face 'custom-link
+              :mouse-face 'highlight)
              buttons)
        (setq links (cdr links))
        (cond ((null links)
@@ -2246,7 +2249,10 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
            (when links
              (insert "\nParent documentation: ")
              (while links
-               (push (widget-create-child-and-convert widget (car links))
+               (push (widget-create-child-and-convert
+                     widget (car links)
+                     :button-face 'custom-link
+                     :mouse-face 'highlight)
                      buttons)
                (setq links (cdr links))
                (cond ((null links)