From f44cc57b50e9232ce1ef4aa49488477c7acd99bf Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Wed, 21 Jul 2021 14:50:37 +0200 Subject: Simplify corfu--match-symbol-p --- corfu.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/corfu.el b/corfu.el index 44582e8..6ac3a43 100644 --- a/corfu.el +++ b/corfu.el @@ -61,7 +61,7 @@ (defcustom corfu-continue-commands ;; nil is undefined command - '(nil completion-at-point "corfu-.*" "scroll-other-window.*") + '(nil completion-at-point "\\`corfu-" "\\`scroll-other-window") "Continue Corfu completion after executing these commands." :type '(repeat (choice regexp symbol))) @@ -100,7 +100,7 @@ filter string with spaces is allowed." :type 'float) (defcustom corfu-auto-commands - '(".*self-insert-command") + '("self-insert-command\\'") "Commands which initiate auto completion." :type '(repeat (choice regexp symbol))) @@ -507,7 +507,7 @@ filter string with spaces is allowed." (seq-some (lambda (x) (if (symbolp x) (eq sym x) - (string-match-p (format "\\`%s\\'" x) (symbol-name sym)))) + (string-match-p x (symbol-name sym)))) pattern))) (defun corfu-quit () -- cgit v1.0