procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(help-function-cmacro): New button.

Browse source
This commit is contained in:
Glenn Morris 2009-09-11 03:39:48 +00:00
parent ae2fd0421f
commit 57c8e7b456
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/help-mode.el
View file

@ -202,6 +202,22 @@ The format is (FUNCTION ARGS...).")
(message "Unable to find location in file"))))
'help-echo (purecopy "mouse-2, RET: find function's definition"))
(define-button-type 'help-function-cmacro
:supertype 'help-xref
'help-function (lambda (fun file)
(setq file (locate-library file t))
(if (and file (file-readable-p file))
(progn
(pop-to-buffer (find-file-noselect file))
(goto-char (point-min))
(if (re-search-forward
(format "^[ \t]*(define-compiler-macro[ \t]+%s"
(regexp-quote (symbol-name fun))) nil t)
(forward-line 0)
(message "Unable to find location in file")))
(message "Unable to find file")))
'help-echo (purecopy "mouse-2, RET: find function's compiler macro"))
(define-button-type 'help-variable-def
:supertype 'help-xref
'help-function (lambda (var &optional file)