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

feature/lookup: update dumb-jump integration

Browse Source 
dumb-jump-go now returns a results plist, so our cl-letf hack is no
longer necessary.
This commit is contained in:
Henrik Lissner
2018-10-21 17:54:15 -04:00
parent 9337c3f8c3
commit 915467cb13
1 changed files with 1 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
modules/feature/lookup/autoload/lookup.el
View File

@ -143,19 +143,7 @@ reduce false positives.
This backend prefers \"just working\" over accuracy." This backend prefers \"just working\" over accuracy."
(when (require 'dumb-jump nil t) (when (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 (successful) (plist-get (dumb-jump-go) :results)))
(cl-letf* ((old-fn (symbol-function 'dumb-jump-get-results))
((symbol-function 'dumb-jump-get-results)
(lambda (&optional prompt)
(let* ((plist (funcall old-fn prompt))
(results (plist-get plist :results)))
(when (and results (> (length results) 0))
(setq successful t))
plist))))
(if other-window
(dumb-jump-go-other-window)
(dumb-jump-go))
successful))))
(defun +lookup-project-search-backend (identifier) (defun +lookup-project-search-backend (identifier)
"Conducts a simple project text search for IDENTIFIER. "Conducts a simple project text search for IDENTIFIER.