branch: elpa/isl
commit 00a75e1db1e34fff331c39ca59d90fb5a070b3cc
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Workaround broken `exit-minibuffer' in emacs-28
---
isearch-light.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/isearch-light.el b/isearch-light.el
index afbe01f49f4..f89cfb49124 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -123,6 +123,14 @@ in pattern."
(define-key map (kbd "M-s") 'isl-jump-to-helm-occur)
map))
+;;; Compatibility
+;;
+;; Workaround broken `exit-minibuffer' in emacs-28.
+(defun isl-exit-minibuffer ()
+ "This is the definition of `exit-minibuffer' prior to emacs-28."
+ (setq deactivate-mark nil)
+ (throw 'exit nil))
+
;;; Actions
;;
(defun isl--goto-overlay (overlay)
@@ -198,7 +206,7 @@ It put overlay on current position, move to next overlay
using
(overlay-put ov 'face 'isl-line)
(sit-for 0.1)
(delete-overlay ov))
- (exit-minibuffer)))
+ (isl-exit-minibuffer)))
(defun isl-yank-word-at-point ()
"Yank word at point in minibuffer.
