diff options
| author | Richard M. Stallman | 2005-05-16 03:31:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-05-16 03:31:32 +0000 |
| commit | 12b42b71d4ef50cfd4aec56b62cfc25954b3c99d (patch) | |
| tree | f16bb3ac2dc3cb10841926d6b69c40b7cf3eab08 | |
| parent | 19941ff5327e3c31208fe73a12859e660755b837 (diff) | |
| download | emacs-12b42b71d4ef50cfd4aec56b62cfc25954b3c99d.tar.gz emacs-12b42b71d4ef50cfd4aec56b62cfc25954b3c99d.zip | |
(help-face-def): New button type.
| -rw-r--r-- | lisp/help-mode.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 8b0284089fc..d94f03200dc 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el | |||
| @@ -169,6 +169,18 @@ The format is (FUNCTION ARGS...).") | |||
| 169 | (goto-char (cdr location)))) | 169 | (goto-char (cdr location)))) |
| 170 | 'help-echo (purecopy"mouse-2, RET: find variable's definition")) | 170 | 'help-echo (purecopy"mouse-2, RET: find variable's definition")) |
| 171 | 171 | ||
| 172 | (define-button-type 'help-face-def | ||
| 173 | :supertype 'help-xref | ||
| 174 | 'help-function (lambda (fun file) | ||
| 175 | (require 'find-func) | ||
| 176 | ;; Don't use find-function-noselect because it follows | ||
| 177 | ;; aliases (which fails for built-in functions). | ||
| 178 | (let ((location | ||
| 179 | (find-function-search-for-symbol fun 'defface file))) | ||
| 180 | (pop-to-buffer (car location)) | ||
| 181 | (goto-char (cdr location)))) | ||
| 182 | 'help-echo (purecopy "mouse-2, RET: find face's definition")) | ||
| 183 | |||
| 172 | 184 | ||
| 173 | ;;;###autoload | 185 | ;;;###autoload |
| 174 | (defun help-mode () | 186 | (defun help-mode () |