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

feature/lookup: fix missing other-window args

Browse Source 
For +lookup/references & +lookup/documentation
This commit is contained in:
Henrik Lissner
2018-10-22 22:16:27 -04:00
parent 0d902e8cf1
commit 9599ca3cf2
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -222,14 +222,15 @@ evil-mode is active."
((error "Couldn't find the definition of '%s'" identifier)))) ((error "Couldn't find the definition of '%s'" identifier))))
;;;###autoload ;;;###autoload
(defun +lookup/references (identifier) (defun +lookup/references (identifier &optional other-window)
"Show a list of usages of IDENTIFIER (defaults to the symbol at point) "Show a list of usages of IDENTIFIER (defaults to the symbol at point)
Tries each function in `+lookup-references-functions' until one changes the Tries each function in `+lookup-references-functions' until one changes the
point and/or current buffer. Falls back to a naive ripgrep/the_silver_searcher point and/or current buffer. Falls back to a naive ripgrep/the_silver_searcher
search otherwise." search otherwise."
(interactive (interactive
(list (+lookup--symbol-or-region))) (list (+lookup--symbol-or-region)
current-prefix-arg))
(cond ((null identifier) (user-error "Nothing under point")) (cond ((null identifier) (user-error "Nothing under point"))
((and +lookup-references-functions ((and +lookup-references-functions
@ -238,7 +239,7 @@ search otherwise."
((error "Couldn't find references of '%s'" identifier)))) ((error "Couldn't find references of '%s'" identifier))))
;;;###autoload ;;;###autoload
(defun +lookup/documentation (identifier) (defun +lookup/documentation (identifier &optional other-window)
"Show documentation for IDENTIFIER (defaults to symbol at point or selection. "Show documentation for IDENTIFIER (defaults to symbol at point or selection.
Goes down a list of possible backends: Goes down a list of possible backends:
@ -247,7 +248,8 @@ Goes down a list of possible backends:
2. If the +docsets flag is active for :feature lookup, use `+lookup/in-docsets' 2. If the +docsets flag is active for :feature lookup, use `+lookup/in-docsets'
3. Fall back to an online search, with `+lookup/online'" 3. Fall back to an online search, with `+lookup/online'"
(interactive (interactive
(list (+lookup--symbol-or-region))) (list (+lookup--symbol-or-region)
current-prefix-arg))
(cond ((null identifier) (user-error "Nothing under point")) (cond ((null identifier) (user-error "Nothing under point"))
((and +lookup-documentation-functions ((and +lookup-documentation-functions