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

feature/lookup: minor refactor

Browse source
This commit is contained in:
Henrik Lissner 2018-08-22 16:29:34 +02:00
parent 8e7a7c1878
commit 4dfb84211b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
modules/feature/lookup/autoload/lookup.el
View file

@ -146,15 +146,15 @@ evil-mode is active."
((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 (symbol-function 'dumb-jump-get-results)) (let (successful)
successful) (cl-letf* ((old-fn (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 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))
plist)))) plist))))
(if other-window (if other-window
(dumb-jump-go-other-window) (dumb-jump-go-other-window)
(dumb-jump-go)) (dumb-jump-go))
@ -210,6 +210,7 @@ Goes down a list of possible backends:
(require 'helm-dash nil t)) (require 'helm-dash nil t))
(or (bound-and-true-p counsel-dash-docsets) (or (bound-and-true-p counsel-dash-docsets)
(bound-and-true-p helm-dash-docsets)) (bound-and-true-p helm-dash-docsets))
;; counsel-dash uses helm-dash under the hood
(helm-dash-installed-docsets)) (helm-dash-installed-docsets))
(+lookup/in-docsets identifier)) (+lookup/in-docsets identifier))