diff --git a/modules/completion/vertico/autoload/vertico.el b/modules/completion/vertico/autoload/vertico.el index 2b027ec7b..d50fa3328 100644 --- a/modules/completion/vertico/autoload/vertico.el +++ b/modules/completion/vertico/autoload/vertico.el @@ -299,3 +299,13 @@ targets." (if keymap (cons '(vertico-current . embark-target) fr) fr)))))) + +;;;###autoload +(defun +vertico-basic-remote-try-completion (string table pred point) + (and (vertico--remote-p string) + (completion-basic-try-completion string table pred point))) + +;;;###autoload +(defun +vertico-basic-remote-all-completions (string table pred point) + (and (vertico--remote-p string) + (completion-basic-all-completions string table pred point))) diff --git a/modules/completion/vertico/config.el b/modules/completion/vertico/config.el index f59c7741e..626a9453c 100644 --- a/modules/completion/vertico/config.el +++ b/modules/completion/vertico/config.el @@ -53,11 +53,17 @@ overrides `completion-styles' during company completion sessions.") ;; Flex matching ((string-prefix-p "~" pattern) `(orderless-flex . ,(substring pattern 1))) ((string-suffix-p "~" pattern) `(orderless-flex . ,(substring pattern 0 -1))))) + (add-to-list + 'completion-styles-alist + '(+vertico-basic-remote + +vertico-basic-remote-try-completion + +vertico-basic-remote-all-completions + "Use basic completion on remote files only")) (setq completion-styles '(orderless) completion-category-defaults nil ;; note that despite override in the name orderless can still be used in ;; find-file etc. - completion-category-overrides '((file (styles . (orderless partial-completion)))) + completion-category-overrides '((file (styles +vertico-basic-remote orderless partial-completion))) orderless-style-dispatchers '(+vertico-orderless-dispatch) orderless-component-separator "[ &]") ;; ...otherwise find-file gets different highlighting than other commands