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

Merge pull request #245 from amosbird/patch-1

Browse Source 
Fix dump jump local advice
This commit is contained in:
Henrik Lissner
2017-10-18 00:01:47 +02:00
committed by GitHub
parent 8fc1c46dca 1f87eb4a5c
commit cc594eca8e
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -36,11 +36,10 @@ Tries xref and falls back to `dumb-jump', then rg/ag, then
((and (fboundp 'dumb-jump-go)
;; dumb-jump doesn't tell us if it succeeded or not
(let (successful)
(cl-letf (((symbol-function 'dumb-jump-result-follow)
`(lambda (result &optional use-tooltip proj)
(setq successful t)
(,(symbol-function 'dumb-jump-result-follow)
result use-tooltip proj))))
(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)))
(if other-window
(dumb-jump-go-other-window)
(dumb-jump-go))