[elpa] externals/isearch-mb 0641fe9837: Use cursor-in-echo-area instead of inhibit-redisplay

[ELPA Syncer]

branch: externals/isearch-mb
commit 0641fe983713b786a6d441f9dd4e69da009cab20
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>

    Use cursor-in-echo-area instead of inhibit-redisplay
---
 isearch-mb.el | 20 +++++---------------
 1 file changed, 5 insertions(+), 15 deletions(-)

diff --git a/isearch-mb.el b/isearch-mb.el
index f5d450890b..f77f64a0e5 100644
--- a/isearch-mb.el
+++ b/isearch-mb.el
@@ -108,7 +108,7 @@
 (defun isearch-mb--after-change (_beg _end _len)
   "Hook to run from the minibuffer to update the isearch state."
   (let ((string (minibuffer-contents))
-        (inhibit-redisplay t))
+        (cursor-in-echo-area t))
     (with-minibuffer-selected-window
       (setq isearch-string (substring-no-properties string))
       (isearch-update-from-string-properties string)
@@ -181,7 +181,7 @@
 Intended as an advice for isearch commands."
   (if (minibufferp)
       (let ((enable-recursive-minibuffers t)
-            (inhibit-redisplay t))
+            (cursor-in-echo-area t))
         (with-minibuffer-selected-window
           (apply args)))
     (apply args)))
@@ -270,19 +270,9 @@ minibuffer."
 During an isearch-mb session, the following keys are available:
 \\{isearch-mb-minibuffer-map}"
   :global t
-  (cond
-   (isearch-mb-mode
-    (put 'lazy-highlight-buffer 'isearch-mb--saved (default-value 
'lazy-highlight-buffer))
-    ;; We need to lazy-highlight the whole buffer for two reasons.
-    ;; First, scrolling during a search is allowed.  Second, we enable
-    ;; `inhibit-redisplay' at certain points to avoid flicker, so the
-    ;; window-{start,end} values in `isearch-lazy-highlight-update'
-    ;; are unreliable
-    (setq-default lazy-highlight-buffer t)
-    (add-hook 'isearch-mode-hook #'isearch-mb--setup))
-   (t
-    (setq-default lazy-highlight-buffer (get 'lazy-highlight-buffer 
'isearch-mb--saved))
-    (remove-hook 'isearch-mode-hook #'isearch-mb--setup))))
+  (if isearch-mb-mode
+      (add-hook 'isearch-mode-hook #'isearch-mb--setup)
+    (remove-hook 'isearch-mode-hook #'isearch-mb--setup)))
 
 (provide 'isearch-mb)
 ;;; isearch-mb.el ends here