From 5cb9b8c24df39c019966d7335992cdd428dc560c Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Tue, 27 Oct 2020 18:34:40 +0100 Subject: [PATCH] Small fix to the new link for inherited faces in Customize * lisp/cus-edit.el (cus--face-link): Link to the current value of the widget, rather than to the widget's value upon creation (bug#44154). --- lisp/cus-edit.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index ed0117e067b..769a69a50f2 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -3740,13 +3740,12 @@ the present value is saved to its :shown-value property instead." (custom-face-state-set widget)))))) (defun cus--face-link (widget _format) - (let ((face (intern (widget-get widget :value)))) - (widget-create-child-and-convert - widget 'face-link - :button-face 'link - :tag "link" - :action (lambda (&rest _x) - (customize-face face))))) + (widget-create-child-and-convert + widget 'face-link + :button-face 'link + :tag "link" + :action (lambda (&rest _x) + (customize-face (widget-value widget))))) (defvar custom-face-menu nil "If non-nil, an alist of actions for the `custom-face' widget. -- 2.39.2