From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 13 Jan 2006 19:50:10 +0000 (+0000)
Subject: (custom-add-see-also, custom-add-parent-links): Make sure the links use
X-Git-Tag: emacs-pretest-22.0.90~4761
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83dc149dec82db59100204c37138dc2fab916327;p=emacs.git

(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 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)