From 07f904a3f27c8a3269c95e97ccc90fb46b1071c2 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Fri, 12 Oct 2001 01:58:02 +0000 Subject: [PATCH] (help-customize-face): New button-type. --- lisp/ChangeLog | 11 ++++++++++- lisp/help-mode.el | 8 ++++++++ 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 73a2b6a8a50..19879d3d371 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2001-10-12 Miles Bader + + * help-mode.el (help-customize-face): New button-type. + * faces.el (list-faces-display): Fix args to `help-xref-button'. + (describe-face): Fix args to `help-xref-button'. + Don't switch to help-buffer around call to `help-setup-xref'. + Use `help-buffer' instead of hard-wired "*Help*". + Require `help-mode'. + 2001-10-11 Stefan Monnier * net/goto-addr.el (goto-address-mail-regexp): Allow + in username. @@ -26,7 +35,7 @@ (describe-bindings): Call help-setup-xref earlier. (describe-key): Call help-setup-xref. Fix call to describe-function-1. (describe-mode): Don't autoload. Call help-setup-xref earlier. - + 2001-10-11 Gerd Moellmann * master.el (master-mode): Use define-minor-mode instead of diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 79aa2033bc7..d42bd9ff30d 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -97,6 +97,14 @@ The format is (FUNCTION ARGS...).") 'help-echo (purecopy "mouse-2, RET: customize variable") 'action #'help-button-action) +(define-button-type 'help-customize-face + 'help-function (lambda (v) + (if help-xref-stack + (pop help-xref-stack)) + (customize-face v)) + 'help-echo (purecopy "mouse-2, RET: customize face") + 'action #'help-button-action) + (define-button-type 'help-function-def 'help-function (lambda (fun file) (require 'find-func) -- 2.39.2