(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 fcb4fac5cc9e1b0e0a6badb67bd5cad2ab79483d..00eace0e644cc4034768b715db9d66e2a5847f29 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 2d4603d6dd1dbc6d45761b209ae010a9bf8bea21..7b0563448a683af884d64608cec5edc30f4e5814 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)