From 1f87eb4a5c488314efea00c63ea1d91380b7f6f8 Mon Sep 17 00:00:00 2001 From: Amos Bird Date: Mon, 16 Oct 2017 02:05:05 -0500 Subject: [PATCH] Fix dump jump local advice Targeting https://github.com/hlissner/doom-emacs/issues/227 --- modules/feature/jump/autoload/jump.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/modules/feature/jump/autoload/jump.el b/modules/feature/jump/autoload/jump.el index 60f9395c0..ad14f0132 100644 --- a/modules/feature/jump/autoload/jump.el +++ b/modules/feature/jump/autoload/jump.el @@ -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))