[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/corfu be32c459d7 1/2: corfu--pre-command, corfu--post-c
From: |
ELPA Syncer |
Subject: |
[elpa] externals/corfu be32c459d7 1/2: corfu--pre-command, corfu--post-command: Check for overriding-terminal-local-map |
Date: |
Wed, 13 Apr 2022 14:57:30 -0400 (EDT) |
branch: externals/corfu
commit be32c459d77e570235349ed7e0c6e35db4699daf
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
corfu--pre-command, corfu--post-command: Check for
overriding-terminal-local-map
---
corfu.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/corfu.el b/corfu.el
index 8ee32f584c..953ab08215 100644
--- a/corfu.el
+++ b/corfu.el
@@ -872,7 +872,8 @@ there hasn't been any input, then quit."
(setq corfu--preview-ov nil))
(when (and (eq corfu-preview-current 'insert)
(/= corfu--index corfu--preselect)
- (not (corfu--match-symbol-p corfu-continue-commands
this-command)))
+ (not (or overriding-terminal-local-map ;; for example
universal-argument-map
+ (corfu--match-symbol-p corfu-continue-commands
this-command))))
(corfu--insert 'exact)))
(defun corfu-insert-separator ()
@@ -893,9 +894,8 @@ See `corfu-separator' for more details."
(goto-char beg)
(<= (line-beginning-position) pt (line-end-position)))
(or
- ;; Check if we universal-argument-map is active
- prefix-arg
;; Check if it is an explicitly listed continue command
+ overriding-terminal-local-map ;; for example
universal-argument-map
(corfu--match-symbol-p corfu-continue-commands
this-command)
(and
;; Check for empty input