diff options
| author | Miles Bader <miles@gnu.org> | 2001-10-12 01:58:02 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2001-10-12 01:58:02 +0000 |
| commit | 07f904a3f27c8a3269c95e97ccc90fb46b1071c2 (patch) | |
| tree | e79bb2892a9e2bb645a093b5c1bac9b69d2fb230 /lisp/help-mode.el | |
| parent | 8940232b59e731da8c5ba1742fb467839d7d329b (diff) | |
| download | emacs-07f904a3f27c8a3269c95e97ccc90fb46b1071c2.tar.gz | |
(help-customize-face): New button-type.
Diffstat (limited to 'lisp/help-mode.el')
| -rw-r--r-- | lisp/help-mode.el | 8 |
1 files changed, 8 insertions, 0 deletions
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) |