awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix dumb-jump integration for +jump/definition

Browse Source 
Addresses #227, #256
This commit is contained in:
Henrik Lissner
2017-11-05 22:12:24 +01:00
parent 8428433898
commit 4c3f5e8cc2
1 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
modules/feature/jump/autoload/jump.el
View File

@ -33,13 +33,19 @@ Tries xref and falls back to `dumb-jump', then rg/ag, then
(xref-find-definitions identifier))
t))
((and (fboundp 'dumb-jump-go)
((and (require 'dumb-jump nil t)
;; dumb-jump doesn't tell us if it succeeded or not
(let (successful)
(flet ((old-dumb-jump-result-follow (result &optional use-tooltip proj) (dumb-jump-result-follow result use-tooltip proj))
(dumb-jump-result-follow (result &optional use-tooltip proj)
(setq successful t)
(old-dumb-jump-result-follow result use-tooltip proj)))
(let ((old-fn-sym (make-symbol "old-fn"))
successful)
(cl-letf ((old-fn-sym (symbol-function 'dumb-jump-get-results))
((symbol-function 'dumb-jump-get-results)
(lambda (&optional prompt)
(message "-- %s" old-fn-sym)
(let* ((plist (funcall old-fn-sym prompt))
(results (plist-get plist :results)))
(when (and results (> (length results) 0))
(setq successful t))
plist))))
(if other-window
(dumb-jump-go-other-window)
(dumb-jump-go))
@ -55,7 +61,7 @@ Tries xref and falls back to `dumb-jump', then rg/ag, then
((and (featurep 'evil)
evil-mode
(cl-destructuring-bind (beg end)
(cl-destructuring-bind (beg . end)
(bounds-of-thing-at-point 'symbol)
(evil-goto-definition)
(let ((pt (point)))