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

Fix (set-lookup-handlers! MODES nil) syntax

Browse source
This commit is contained in:
Henrik Lissner 2019-10-15 22:23:35 -04:00
parent 46b7945015
commit 957e1dd080
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 21 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,8 +1,7 @@
;;; tools/lookup/autoload/lookup.el -*- lexical-binding: t; -*- ;;; tools/lookup/autoload/lookup.el -*- lexical-binding: t; -*-
;;;###autodef ;;;###autodef
(cl-defun set-lookup-handlers! (defun set-lookup-handlers! (modes &rest plist)
(modes &rest plist &key definition references documentation file xref-backend async)
"Define jump handlers for major or minor MODES. "Define jump handlers for major or minor MODES.
A handler is either an interactive command that changes the current buffer A handler is either an interactive command that changes the current buffer
@ -56,7 +55,9 @@ defined for other minor modes or the major mode it's activated in.
This can be passed nil as its second argument to unset handlers for MODES. e.g. This can be passed nil as its second argument to unset handlers for MODES. e.g.
(set-lookup-handlers! 'python-mode nil)" (set-lookup-handlers! 'python-mode nil)
\(fn MODES &key DEFINITION REFERENCES DOCUMENTATION FILE XREF-BACKEND ASYNC)"
(declare (indent defun)) (declare (indent defun))
(dolist (mode (doom-enlist modes)) (dolist (mode (doom-enlist modes))
(let ((hook (intern (format "%s-hook" mode))) (let ((hook (intern (format "%s-hook" mode)))
@ -67,21 +68,23 @@ This can be passed nil as its second argument to unset handlers for MODES. e.g.
((fset ((fset
fn fn
(lambda () (lambda ()
(cl-mapc #'+lookup--set-handler (cl-destructuring-bind (&key definition references documentation file xref-backend async)
(list definition plist
references (cl-mapc #'+lookup--set-handler
documentation (list definition
file references
xref-backend) documentation
(list '+lookup-definition-functions file
'+lookup-references-functions xref-backend)
'+lookup-documentation-functions (list '+lookup-definition-functions
'+lookup-file-functions '+lookup-references-functions
'xref-backend-functions) '+lookup-documentation-functions
(make-list 5 async) '+lookup-file-functions
(make-list 5 (or (eq major-mode mode) 'xref-backend-functions)
(and (boundp mode) (make-list 5 async)
(symbol-value mode))))))) (make-list 5 (or (eq major-mode mode)
(and (boundp mode)
(symbol-value mode))))))))
(add-hook hook fn)))))) (add-hook hook fn))))))