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

Follow symlinks when searching autoloads

Browse source 
Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
This commit is contained in:
Rudi Grinberg 2019-11-01 10:42:39 +09:00
parent 0e2c642a86
commit 7900cef7da
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
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"
@ -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"