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

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
parent 8a999c6ae1 7900cef7da
commit 7a10a68f4e
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"