From 025afdf80288d63f40a9e050b7644a221f1ac9da Mon Sep 17 00:00:00 2001
From: jakanakaevangeli <jakanakaevangeli@chiru.no>
Date: Thu, 5 Aug 2021 11:56:22 +0200
Subject: [PATCH] Prevent capf functions from moving point

---
 capf-autosuggest.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/capf-autosuggest.el b/capf-autosuggest.el
index 9327ac7..4d33eea 100644
--- a/capf-autosuggest.el
+++ b/capf-autosuggest.el
@@ -184,8 +184,10 @@ Otherwise, return nil."
              (condition-case nil
                  (catch catch-sym
                    (while-no-input
-                     (capf-autosuggest-orig-capf
-                      'capf-autosuggest-capf-functions)))
+                     ;; `ielm-complete-filename' may illegaly move point
+                     (save-excursion
+                       (capf-autosuggest-orig-capf
+                        'capf-autosuggest-capf-functions))))
                ((buffer-read-only quit) t)))
       (`(,beg ,end ,table . ,plist)
        (let* ((pred (plist-get plist :predicate))
-- 
2.11.4.GIT