diff options
| author | Eli Zaretskii <[email protected]> | 2006-01-13 19:50:10 +0000 |
|---|---|---|
| committer | Eli Zaretskii <[email protected]> | 2006-01-13 19:50:10 +0000 |
| commit | 83dc149dec82db59100204c37138dc2fab916327 (patch) | |
| tree | 6b3144c8b0ac503a8a32c314f184107a598cb442 /lisp/cus-edit.el | |
| parent | 4c3447538fa68b6c125449d73953e92de8805b59 (diff) | |
(custom-add-see-also, custom-add-parent-links): Make sure the links use
the `custom-link' face.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 2d4603d6dd..7b0563448a 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) |