[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/capf-autosuggest 2163c64 27/63: after-change-functions
From: |
ELPA Syncer |
Subject: |
[elpa] externals/capf-autosuggest 2163c64 27/63: after-change-functions -> buffer-modified-tick |
Date: |
Wed, 27 Oct 2021 14:57:58 -0400 (EDT) |
branch: externals/capf-autosuggest
commit 2163c6431871043712715735c00ca5afad151f0c
Author: jakanakaevangeli <jakanakaevangeli@chiru.no>
Commit: jakanakaevangeli <jakanakaevangeli@chiru.no>
after-change-functions -> buffer-modified-tick
---
capf-autosuggest.el | 21 ++++++---------------
1 file changed, 6 insertions(+), 15 deletions(-)
diff --git a/capf-autosuggest.el b/capf-autosuggest.el
index d0dc3ed..70a0e27 100644
--- a/capf-autosuggest.el
+++ b/capf-autosuggest.el
@@ -120,6 +120,7 @@ hint to only return a list of one element for
optimization.")
(defvar-local capf-autosuggest--overlay nil)
(defvar-local capf-autosuggest--str "")
+(defvar-local capf-autosuggest--tick nil)
(defvar-local capf-autosuggest--region '(nil)
"Region of `completion-at-point'.")
@@ -148,7 +149,8 @@ Otherwise, return nil."
(when capf-autosuggest-active-mode
;; `identity' is used to generate slightly faster byte-code
(pcase-let ((`(,beg . ,end) (identity capf-autosuggest--region)))
- (unless (< beg (point) end)
+ (unless (and (< beg (point) end)
+ (eq (buffer-modified-tick) capf-autosuggest--tick))
(capf-autosuggest-active-mode -1))))
(unless capf-autosuggest-active-mode
@@ -173,7 +175,8 @@ Otherwise, return nil."
(str (substring (car completions) (- end beg base)))
((/= 0 (length str))))
(setq capf-autosuggest--region (cons beg end)
- capf-autosuggest--str (copy-sequence str))
+ capf-autosuggest--str (copy-sequence str)
+ capf-autosuggest--tick (buffer-modified-tick))
(move-overlay capf-autosuggest--overlay end end)
(when (eq ?\n (aref str 0))
(setq str (concat " " str)))
@@ -301,22 +304,10 @@ inactive."
map)
"Keymap active when an auto-suggestion is shown.")
-(defun capf-autosuggest--active-acf (beg end _length)
- "Deactivate auto-suggestion on completion region modifications.
-BEG and END denote the changed region."
- ;; `identity' is used to generate slightly faster byte-code
- (when (pcase-let ((`(,beg1 . ,end1) (identity capf-autosuggest--region)))
- (if (< beg beg1)
- (>= end beg1)
- (<= beg end1)))
- (capf-autosuggest-active-mode -1)))
-
(define-minor-mode capf-autosuggest-active-mode
"Active when auto-suggested overlay is shown."
:group 'completion
- (if capf-autosuggest-active-mode
- (add-hook 'after-change-functions #'capf-autosuggest--active-acf nil t)
- (remove-hook 'after-change-functions #'capf-autosuggest--active-acf t)
+ (unless capf-autosuggest-active-mode
(delete-overlay capf-autosuggest--overlay)))
;;;###autoload
- [elpa] externals/capf-autosuggest 531b04c 07/63: Take completion boundaries/base into account, (continued)
- [elpa] externals/capf-autosuggest 531b04c 07/63: Take completion boundaries/base into account, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest dd21f4b 08/63: Fix capf-autosuggest-accept, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest cad5308 01/63: Initial commit, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 3fd798f 12/63: Make capf-autosuggest-capf nil by default, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 3c346b7 13/63: Added history-capf.el, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest c6a38f3 17/63: Sentence end double space, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 0ef9e94 16/63: Add documentation to capf functions, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 03004ef 18/63: Begin commentary to capf-autosuggest, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 8507236 20/63: Generalize capf-autosuggest-capf-functions, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest d53b499 24/63: insert -> insert-and-inherit, ELPA Syncer, 2021/10/27
- [elpa] externals/capf-autosuggest 2163c64 27/63: after-change-functions -> buffer-modified-tick,
ELPA Syncer <=
- [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, 2021/10/27