diff options
| author | Miles Bader | 2001-10-12 01:58:02 +0000 |
|---|---|---|
| committer | Miles Bader | 2001-10-12 01:58:02 +0000 |
| commit | 07f904a3f27c8a3269c95e97ccc90fb46b1071c2 (patch) | |
| tree | e79bb2892a9e2bb645a093b5c1bac9b69d2fb230 /lisp/help-mode.el | |
| parent | 8940232b59e731da8c5ba1742fb467839d7d329b (diff) | |
| download | emacs-07f904a3f27c8a3269c95e97ccc90fb46b1071c2.tar.gz emacs-07f904a3f27c8a3269c95e97ccc90fb46b1071c2.zip | |
(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...).") | |||
| 97 | 'help-echo (purecopy "mouse-2, RET: customize variable") | 97 | 'help-echo (purecopy "mouse-2, RET: customize variable") |
| 98 | 'action #'help-button-action) | 98 | 'action #'help-button-action) |
| 99 | 99 | ||
| 100 | (define-button-type 'help-customize-face | ||
| 101 | 'help-function (lambda (v) | ||
| 102 | (if help-xref-stack | ||
| 103 | (pop help-xref-stack)) | ||
| 104 | (customize-face v)) | ||
| 105 | 'help-echo (purecopy "mouse-2, RET: customize face") | ||
| 106 | 'action #'help-button-action) | ||
| 107 | |||
| 100 | (define-button-type 'help-function-def | 108 | (define-button-type 'help-function-def |
| 101 | 'help-function (lambda (fun file) | 109 | 'help-function (lambda (fun file) |
| 102 | (require 'find-func) | 110 | (require 'find-func) |