emacs-elpa-diffs
[Top][All Lists]
Advanced

[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 ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]