From c2bb5a09518042e45c5a4c5437458b33bf3df799 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 14 Nov 2017 01:10:14 +0100 Subject: [PATCH] Fix dumb-jump integration for +jump/definition, take 2 #227 --- modules/feature/jump/autoload/jump.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/modules/feature/jump/autoload/jump.el b/modules/feature/jump/autoload/jump.el index 3c83ee32c..21d951f3b 100644 --- a/modules/feature/jump/autoload/jump.el +++ b/modules/feature/jump/autoload/jump.el @@ -35,12 +35,11 @@ Tries xref and falls back to `dumb-jump', then rg/ag, then ((and (require 'dumb-jump nil t) ;; 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) - (cl-letf ((old-fn-sym (symbol-function 'dumb-jump-get-results)) - ((symbol-function 'dumb-jump-get-results) + (cl-letf (((symbol-function 'dumb-jump-get-results) (lambda (&optional prompt) - (let* ((plist (funcall old-fn-sym prompt)) + (let* ((plist (funcall old-fn prompt)) (results (plist-get plist :results))) (when (and results (> (length results) 0)) (setq successful t))