[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/capf-autosuggest 84bdbc5 44/63: Fix completion-in-regio
From: |
ELPA Syncer |
Subject: |
[elpa] externals/capf-autosuggest 84bdbc5 44/63: Fix completion-in-region popping up in eshell after "(forward" |
Date: |
Wed, 27 Oct 2021 14:58:01 -0400 (EDT) |
branch: externals/capf-autosuggest
commit 84bdbc5f0809c26bc8d527abaf79bcec85cdecb5
Author: jakanakaevangeli <jakanakaevangeli@chiru.no>
Commit: jakanakaevangeli <jakanakaevangeli@chiru.no>
Fix completion-in-region popping up in eshell after "(forward"
---
capf-autosuggest.el | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/capf-autosuggest.el b/capf-autosuggest.el
index bbc3e7e..9ba92ca 100644
--- a/capf-autosuggest.el
+++ b/capf-autosuggest.el
@@ -169,9 +169,18 @@ Otherwise, return nil."
(capf-autosuggest-active-mode -1))))
(unless capf-autosuggest-active-mode
- (pcase (let ((buffer-read-only t))
+ (pcase (let* ((catch-sym (make-symbol "cirf-catch"))
+ ;; `pcomplete-completions-at-point' may illegally use
+ ;; `completion-in-region' itself instead of returning a
+ ;; collection. Let's try to outsmart it.
+ (completion-in-region-function
+ (lambda (start end collection predicate)
+ (throw catch-sym
+ (list start end collection :predicate predicate))))
+ (buffer-read-only t))
(condition-case _
- (capf-autosuggest-orig-capf 'capf-autosuggest-capf-functions)
+ (catch catch-sym
+ (capf-autosuggest-orig-capf
'capf-autosuggest-capf-functions))
(buffer-read-only t)))
(`(,beg ,end ,table . ,plist)
(let* ((pred (plist-get plist :predicate))
- [elpa] externals/capf-autosuggest 2163c64 27/63: after-change-functions -> buffer-modified-tick, (continued)
- [elpa] externals/capf-autosuggest 2163c64 27/63: after-change-functions -> buffer-modified-tick, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 5455064 22/63: Allow forward-sexp to enter overlay, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest b836fcc 33/63: Prevent misbehaving capf functions from modifying buffer, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest abd71ab 29/63: Don't leak overlays when killing all local variables, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 8f091ce 26/63: Extend description, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 024d438 28/63: Don't exclude completion-in-region-mode, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 40336d0 38/63: Adjust short description, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 76b643a 34/63: Doc fixes and additions, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest b16a9d8 36/63: Silence compiler warnings, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 4461655 40/63: Try not to interfere with command output too much, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 84bdbc5 44/63: Fix completion-in-region popping up in eshell after "(forward",
ELPA Syncer <=
- [elpa] externals/capf-autosuggest 2b241a4 43/63: Avoid recomputing string length, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 1ede511 46/63: Minor doc fix, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 200c509 50/63: Disable overlay before executing a partial accept command, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 3064910 54/63: Add undo-boundary when accepting suggestion, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 3f53162 58/63: Remove README, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 0bcdfae 59/63: Add license, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 05980d5 60/63: Adjust package headers, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 3e36894 61/63: Fix copyright notice, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 9fb8c7e 10/63: Fix cursor display if suggested string begins with newline, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest a5f0de5 19/63: Rearrange functions, ELPA Syncer, 2021/10/27