From 83dc149dec82db59100204c37138dc2fab916327 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 13 Jan 2006 19:50:10 +0000 Subject: [PATCH] (custom-add-see-also, custom-add-parent-links): Make sure the links use the `custom-link' face. --- lisp/ChangeLog | 5 +++++ lisp/cus-edit.el | 10 ++++++++-- 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 (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 * 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) -- 2.39.2