169 |
(goto-char (cdr location)))) |
(goto-char (cdr location)))) |
170 |
'help-echo (purecopy"mouse-2, RET: find variable's definition")) |
'help-echo (purecopy"mouse-2, RET: find variable's definition")) |
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 |
|
|
184 |
|
|
185 |
;;;###autoload |
;;;###autoload |
186 |
(defun help-mode () |
(defun help-mode () |