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

General comment revision & reformatting

Browse source
This commit is contained in:
Henrik Lissner 2019-12-21 14:58:40 -05:00
parent 3583e1f2e0
commit b53703d527
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
7 changed files with 34 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

26
modules/tools/lookup/autoload/lookup.el
View file

@ -130,20 +130,22 @@ This can be passed nil as its second argument to unset handlers for MODES. e.g.
(defun +lookup--jump-to (prop identifier &optional display-fn arg)
(let* ((origin (point-marker))
(handlers (plist-get (list :definition '+lookup-definition-functions
:references '+lookup-references-functions
:documentation '+lookup-documentation-functions
:file '+lookup-file-functions)
prop))
(handlers
(plist-get (list :definition '+lookup-definition-functions
:references '+lookup-references-functions
:documentation '+lookup-documentation-functions
:file '+lookup-file-functions)
prop))
(result
(if arg
(if-let*
((handler (intern-soft
(completing-read "Select lookup handler: "
(delete-dups
(remq t (append (symbol-value handlers)
(default-value handlers))))
nil t))))
(if-let
(handler
(intern-soft
(completing-read "Select lookup handler: "
(delete-dups
(remq t (append (symbol-value handlers)
(default-value handlers))))
nil t)))
(+lookup--run-handlers handler identifier origin)
(user-error "No lookup handler selected"))
(run-hook-wrapped handlers #'+lookup--run-handlers identifier origin))))