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

the `custom-link' face.

2 files changed, 13 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fcb4fac5cc9..00eace0e644 100644
--- 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 2d4603d6dd1..7b0563448a6 100644
--- 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)