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

Merge pull request #1998 from rgrinberg/fix-autoload-cookie

Browse source 
Fix autoload cookie for doom/help-search-loaded-files
This commit is contained in:
Henrik Lissner 2019-11-01 13:09:28 -04:00 • committed by GitHub
commit 7a10a68f4e
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/autoload/help.el
View file

@ -614,7 +614,7 @@ Uses the symbol at point or the current selection, if available."
(mapconcat (mapconcat
#'shell-quote-argument #'shell-quote-argument
(cond ((executable-find "rg") (cond ((executable-find "rg")
`("rg" "--search-zip" "--no-heading" "--color=never" `("rg" "-L" "--search-zip" "--no-heading" "--color=never"
,query ,@(cl-remove-if-not #'file-directory-p load-path))) ,query ,@(cl-remove-if-not #'file-directory-p load-path)))
((executable-find "ag") ((executable-find "ag")
`("ag" "--search-zip" "--nogroup" "--nocolor" `("ag" "--search-zip" "--nogroup" "--nocolor"
@ -623,7 +623,7 @@ Uses the symbol at point or the current selection, if available."
" "))) " ")))
;; TODO factor our the duplicate code between this and the above ;; TODO factor our the duplicate code between this and the above
;;;autoload ;;;###autoload
(defun doom/help-search-loaded-files (query) (defun doom/help-search-loaded-files (query)
"Perform a text search on your `load-path'. "Perform a text search on your `load-path'.
Uses the symbol at point or the current selection, if available." Uses the symbol at point or the current selection, if available."
@ -645,7 +645,7 @@ Uses the symbol at point or the current selection, if available."
#'shell-quote-argument #'shell-quote-argument
(let ((search (elisp-refs--loaded-paths))) (let ((search (elisp-refs--loaded-paths)))
(cond ((executable-find "rg") (cond ((executable-find "rg")
`("rg" "--search-zip" "--no-heading" "--color=never" `("rg" "-L" "--search-zip" "--no-heading" "--color=never"
,query ,@(cl-remove-if-not #'file-directory-p search))) ,query ,@(cl-remove-if-not #'file-directory-p search)))
((executable-find "ag") ((executable-find "ag")
`("ag" "--search-zip" "--nogroup" "--nocolor" `("ag" "--search-zip" "--nogroup" "--nocolor"