[elpa] externals/capf-autosuggest 2163c64 27/63: after-change-functions -> buffer-modified-tick

[ELPA Syncer]

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