changeset 68178:08dc54e52e8e

(custom-add-see-also, custom-add-parent-links): Make sure the links use the `custom-link' face.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 13 Jan 2006 19:47:44 +0000
parents 7341c6ea5e74
children 83ac404539a7
files lisp/cus-edit.el
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Fri Jan 13 17:20:52 2006 +0000
+++ b/lisp/cus-edit.el	Fri Jan 13 19:47:44 2006 +0000
@@ -2201,7 +2201,10 @@
 	(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 @@
            (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)