Fix dump jump local advice
Targeting https://github.com/hlissner/doom-emacs/issues/227
This commit is contained in:
parent
8fc1c46dca
commit
1f87eb4a5c
1 changed files with 4 additions and 5 deletions
|
@ -36,11 +36,10 @@ Tries xref and falls back to `dumb-jump', then rg/ag, then
|
||||||
((and (fboundp 'dumb-jump-go)
|
((and (fboundp 'dumb-jump-go)
|
||||||
;; dumb-jump doesn't tell us if it succeeded or not
|
;; dumb-jump doesn't tell us if it succeeded or not
|
||||||
(let (successful)
|
(let (successful)
|
||||||
(cl-letf (((symbol-function 'dumb-jump-result-follow)
|
(flet ((old-dumb-jump-result-follow (result &optional use-tooltip proj) (dumb-jump-result-follow result use-tooltip proj))
|
||||||
`(lambda (result &optional use-tooltip proj)
|
(dumb-jump-result-follow (result &optional use-tooltip proj)
|
||||||
(setq successful t)
|
(setq successful t)
|
||||||
(,(symbol-function 'dumb-jump-result-follow)
|
(old-dumb-jump-result-follow result use-tooltip proj)))
|
||||||
result use-tooltip proj))))
|
|
||||||
(if other-window
|
(if other-window
|
||||||
(dumb-jump-go-other-window)
|
(dumb-jump-go-other-window)
|
||||||
(dumb-jump-go))
|
(dumb-jump-go))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue