18 lines
721 B
EmacsLisp
18 lines
721 B
EmacsLisp
;;; completion/corfu/autoload/commands.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun corfu-move-to-minibuffer ()
|
|
;; Taken from corfu's README.
|
|
;; TODO: extend this to other completion front-ends.
|
|
(interactive)
|
|
(let ((completion-extra-properties corfu--extra)
|
|
(completion-cycle-threshold completion-cycling))
|
|
(apply #'consult-completion-in-region completion-in-region--data)))
|
|
|
|
;;;###autoload
|
|
(defun +corfu-insert-wildcard-separator ()
|
|
;; I had to rename this command so that it doesn't start with "corfu-".
|
|
;; Otherwise, it does not insert the completion when +tng is enabled.
|
|
(interactive)
|
|
(setq this-command #'corfu-insert-separator)
|
|
(call-interactively #'corfu-insert-separator))
|