feature/lookup: update dumb-jump integration

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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -143,19 +143,7 @@ reduce false positives.
This backend prefers \"just working\" over accuracy."
(when (require 'dumb-jump nil t)
;; dumb-jump doesn't tell us if it succeeded or not
(let (successful)
(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))))
(plist-get (dumb-jump-go) :results)))
(defun +lookup-project-search-backend (identifier)
"Conducts a simple project text search for IDENTIFIER.