mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

(help-face-def): New button type.

Browse Source
This commit is contained in:
Richard M. Stallman 2005-05-16 03:31:32 +00:00
parent 19941ff532
commit 12b42b71d4
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/help-mode.el
View File

@ -169,6 +169,18 @@ The format is (FUNCTION ARGS...).")
(goto-char (cdr location))))
'help-echo (purecopy"mouse-2, RET: find variable's definition"))
(define-button-type 'help-face-def
:supertype 'help-xref
'help-function (lambda (fun file)
(require 'find-func)
;; Don't use find-function-noselect because it follows
;; aliases (which fails for built-in functions).
(let ((location
(find-function-search-for-symbol fun 'defface file)))
(pop-to-buffer (car location))
(goto-char (cdr location))))
'help-echo (purecopy "mouse-2, RET: find face's definition"))
;;;###autoload
(defun help-mode ()