diff options
| author | Oleh Krehel <ohwoeowho@gmail.com> | 2020-09-17 20:43:34 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-17 20:43:40 +0200 |
| commit | 65b7d465a5e5afaa5332cb8d24b0834ebb7633fc (patch) | |
| tree | a639e8646a2dad2589c5edd1a24f403cb06c359c | |
| parent | 8b61e20e4edb9d2f67134bc9f3739f936aafb01c (diff) | |
| download | emacs-65b7d465a5e5afaa5332cb8d24b0834ebb7633fc.tar.gz emacs-65b7d465a5e5afaa5332cb8d24b0834ebb7633fc.tar.bz2 emacs-65b7d465a5e5afaa5332cb8d24b0834ebb7633fc.zip | |
Make face names clickable in Customize buffers
* lisp/cus-edit.el (custom-face-value-create): Make the face name
a clickable button (bug#20664).
| -rw-r--r-- | lisp/cus-edit.el | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 6d0ec5d1486..9626b3cf810 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -3560,19 +3560,20 @@ the present value is saved to its :shown-value property instead." (widget-put widget :buttons buttons)) ;; Draw an ordinary `custom-face' widget - (let ((opoint (point))) - ;; Visibility indicator. - (push (widget-create-child-and-convert - widget 'custom-visibility - :help-echo "Hide or show this face." - :on "Hide" :off "Show" - :on-glyph "down" :off-glyph "right" - :action 'custom-toggle-hide-face - (not hiddenp)) - buttons) - ;; Face name (tag). - (insert " " tag) - (widget-specify-sample widget opoint (point))) + ;; Visibility indicator. + (push (widget-create-child-and-convert + widget 'custom-visibility + :help-echo "Hide or show this face." + :on "Hide" :off "Show" + :on-glyph "down" :off-glyph "right" + :action 'custom-toggle-hide-face + (not hiddenp)) + buttons) + ;; Face name (tag). + (insert " ") + (insert-text-button tag + 'action (lambda (&rest _x) + (find-face-definition symbol))) (insert (cond ((eq custom-buffer-style 'face) " ") ((string-match-p "face\\'" tag) ":") |