hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-05 17:41:42 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

for C, use tags

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2016-02-05 23:46:28 +01:00
parent f6edf01a9f
commit afe8cf0f67
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
boon-main.el
View file

@ -20,12 +20,19 @@ Search preferentially for a function, then a variable."
((boundp symb) (find-function-do-it symb 'defvar 'switch-to-buffer))
(t (call-interactively 'helm-apropos)))))
(defun boon-find-tag-at-point ()
(interactive)
(let ((symb (thing-at-point 'symbol)))
(cond (symb (find-tag symb))
(t (call-interactively 'find-tag)))))
(defcustom boon-find-definition-dispatch '()
"An alist mapping major modes to finding the symbol at point."
:group 'boon
:type '(alist :key-type symbol :value-type function))
(setq boon-find-definition-dispatch
'((emacs-lisp-mode . boon-find-elisp-thing-at-point)
'((c-mode . (lambda () (interactive) (boon-find-tag-at-point)))
(emacs-lisp-mode . boon-find-elisp-thing-at-point)
(lisp-interaction-mode . boon-find-elisp-thing-at-point)
(haskell-mode . haskell-mode-jump-to-def-or-tag)))