diff --git a/modules/completion/corfu/autoload.el b/modules/completion/corfu/autoload.el index 0501fc196..d3c63d5d2 100644 --- a/modules/completion/corfu/autoload.el +++ b/modules/completion/corfu/autoload.el @@ -1,7 +1,7 @@ ;;; completion/corfu/autoload.el -*- lexical-binding: t; -*- ;;;###autoload -(defun +corfu-move-to-minibuffer () +(defun +corfu/move-to-minibuffer () "Move the current list of candidates to your choice of minibuffer completion UI." (interactive) (pcase completion-in-region--data @@ -27,7 +27,7 @@ (t (error "No minibuffer completion UI available for moving to!"))))))) ;;;###autoload -(defun +corfu-smart-sep-toggle-escape () +(defun +corfu/smart-sep-toggle-escape () "Insert `corfu-separator' or toggle escape if it's already there." (interactive) (cond ((and (char-equal (char-before) corfu-separator) diff --git a/modules/completion/corfu/config.el b/modules/completion/corfu/config.el index 2d4475611..2b4c352e3 100644 --- a/modules/completion/corfu/config.el +++ b/modules/completion/corfu/config.el @@ -74,8 +74,8 @@ TAB/S-TAB.") tab-always-indent 'complete) (add-to-list 'completion-category-overrides `(lsp-capf (styles ,@completion-styles))) (add-to-list 'corfu-auto-commands #'lispy-colon) - (add-to-list 'corfu-continue-commands #'+corfu-move-to-minibuffer) - (add-to-list 'corfu-continue-commands #'+corfu-smart-sep-toggle-escape) + (add-to-list 'corfu-continue-commands #'+corfu/move-to-minibuffer) + (add-to-list 'corfu-continue-commands #'+corfu/smart-sep-toggle-escape) (add-hook 'evil-insert-state-exit-hook #'corfu-quit) ;; HACK: If you want to update the visual hints after completing minibuffer diff --git a/modules/config/default/config.el b/modules/config/default/config.el index 667b6abb0..19d566797 100644 --- a/modules/config/default/config.el +++ b/modules/config/default/config.el @@ -461,8 +461,8 @@ Continues comments if executed from a commented line. Consults (map! :when (modulep! :completion corfu) :after corfu (:map corfu-map - [remap corfu-insert-separator] #'+corfu-smart-sep-toggle-escape - "C-S-s" #'+corfu-move-to-minibuffer + [remap corfu-insert-separator] #'+corfu/smart-sep-toggle-escape + "C-S-s" #'+corfu/move-to-minibuffer "C-p" #'corfu-previous "C-n" #'corfu-next)) (let ((cmds-del