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

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index ed0117e067b87d0d4d5aedf0c9114345d2e2c19e..769a69a50f283d6ddd9b041599a889b952247e7b 100644 (file)
--- 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.