branch: elpa/isl
commit 9bf3346d42becb6f43345c4908debf7583f203f5
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>

    Fix exit-minibuffer in emacs-28
---
 isearch-light.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/isearch-light.el b/isearch-light.el
index afbe01f49f4..835828475c5 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -197,8 +197,10 @@ It put overlay on current position, move to next overlay 
using
     (let ((ov (make-overlay (point-at-bol) (point-at-eol))))
       (overlay-put ov 'face 'isl-line)
       (sit-for 0.1)
-      (delete-overlay ov))
-    (exit-minibuffer)))
+      (delete-overlay ov)))
+  ;; Call `exit-minibuffer' out of the `with-selected-window' block to
+  ;; avoid error with the emacs-28 version.
+  (exit-minibuffer))
 
 (defun isl-yank-word-at-point ()
   "Yank word at point in minibuffer.

Reply via email to