[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5cb9b8c 1/2: Small fix to the new link for inherited faces in Cus
From: |
Lars Ingebrigtsen |
Subject: |
master 5cb9b8c 1/2: Small fix to the new link for inherited faces in Customize |
Date: |
Tue, 27 Oct 2020 13:47:00 -0400 (EDT) |
branch: master
commit 5cb9b8c24df39c019966d7335992cdd428dc560c
Author: Mauro Aranda <maurooaranda@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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 ed0117e..769a69a 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.