[elpa] externals/consult 354fe94e49: org-fold-show-set-visibility: Prevent premature redisplay

[ELPA Syncer]

branch: externals/consult
commit 354fe94e49e8bfaae48192f2690814b54455e277
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    org-fold-show-set-visibility: Prevent premature redisplay
---
 consult.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index a82119ba01..35f2edf8f4 100644
--- a/consult.el
+++ b/consult.el
@@ -1387,7 +1387,8 @@ ORIG is the original function, HOOKS the arguments."
 See `isearch-open-necessary-overlays' and `isearch-open-overlay-temporary'."
   (if (and (derived-mode-p #'org-mode) (fboundp 'org-fold-show-set-visibility))
       ;; New Org 9.6 fold-core API
-      (org-fold-show-set-visibility 'canonical)
+      (let ((inhibit-redisplay t)) ;; HACK: Prevent flicker due to premature 
redisplay
+        (org-fold-show-set-visibility 'canonical))
     (dolist (ov (overlays-in (pos-bol) (pos-eol)))
       (when-let (fun (overlay-get ov 'isearch-open-invisible))
         (when (invisible-p (overlay-get ov 'invisible))
@@ -1425,7 +1426,8 @@ See `isearch-open-necessary-overlays' and 
`isearch-open-overlay-temporary'."
                                  (when (markerp end) (set-marker end nil)))
                                (kill-local-variable 
'consult--org-fold-regions))))))))
               (add-hook 'minibuffer-exit-hook hook))))
-        (org-fold-show-set-visibility 'canonical)
+        (let ((inhibit-redisplay t)) ;; HACK: Prevent flicker due to premature 
redisplay
+          (org-fold-show-set-visibility 'canonical))
         (list (lambda ()
                 (pcase-dolist (`(,beg ,end ,spec) consult--org-fold-regions)
                   (org-fold-core-region beg end t spec)))))