[elpa] externals/corfu 2f9e154 18/29: Use completion--replace

[Stefan Monnier]

branch: externals/corfu
commit 2f9e15428edd4af450dc32b4ac402ab9a7d104a8
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use completion--replace
---
 corfu.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/corfu.el b/corfu.el
index c151ea2..8cd8d48 100644
--- a/corfu.el
+++ b/corfu.el
@@ -422,20 +422,18 @@
                  (metadata (completion-metadata (substring content 0 pt) table 
pred)))
       (pcase (completion-try-completion content table pred pt metadata)
         ((and `(,newstr . ,newpt) (guard (not (equal content newstr))))
-         (atomic-change-group
-           (delete-region beg end)
-           (insert newstr)
-           (goto-char (+ beg newpt))))))))
+         (completion--replace beg end newstr)
+         (goto-char (+ beg newpt)))))))
 
 (defun corfu-insert ()
   "Insert current candidate."
   (interactive)
   (pcase-let* ((`(,beg ,end . _) completion-in-region--data)
                (content (buffer-substring-no-properties beg end)))
-    (atomic-change-group
-      (delete-region beg end))
-      (insert (concat (substring content 0 corfu--base)
-                      (substring-no-properties (nth (max 0 corfu--index) 
corfu--candidates)))))
+    (completion--replace
+     beg end
+     (concat (substring content 0 corfu--base)
+             (substring-no-properties (nth (max 0 corfu--index) 
corfu--candidates)))))
   (completion-in-region-mode -1))
 
 (defun corfu--setup ()