[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/corfu f44cc57 3/3: Simplify corfu--match-symbol-p
From: |
ELPA Syncer |
Subject: |
[elpa] externals/corfu f44cc57 3/3: Simplify corfu--match-symbol-p |
Date: |
Wed, 21 Jul 2021 08:57:09 -0400 (EDT) |
branch: externals/corfu
commit f44cc57b50e9232ce1ef4aa49488477c7acd99bf
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
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 ()