emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix dumb-jump integration for +jump/definition, take 2 #227

Browse source
This commit is contained in:
Henrik Lissner 2017-11-14 01:10:14 +01:00
parent 6def061c5a
commit c2bb5a0951
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
modules/feature/jump/autoload/jump.el
View file

@ -35,12 +35,11 @@ Tries xref and falls back to `dumb-jump', then rg/ag, then
((and (require 'dumb-jump nil t) ((and (require 'dumb-jump nil t)
;; dumb-jump doesn't tell us if it succeeded or not ;; dumb-jump doesn't tell us if it succeeded or not
(let ((old-fn-sym (make-symbol "old-fn")) (let ((old-fn (symbol-function 'dumb-jump-get-results))
successful) successful)
(cl-letf ((old-fn-sym (symbol-function 'dumb-jump-get-results)) (cl-letf (((symbol-function 'dumb-jump-get-results)
((symbol-function 'dumb-jump-get-results)
(lambda (&optional prompt) (lambda (&optional prompt)
(let* ((plist (funcall old-fn-sym prompt)) (let* ((plist (funcall old-fn prompt))
(results (plist-get plist :results))) (results (plist-get plist :results)))
(when (and results (> (length results) 0)) (when (and results (> (length results) 0))
(setq successful t)) (setq successful t))