emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/consult e4e2af1a2d: Minor cleanup


From: ELPA Syncer
Subject: [elpa] externals/consult e4e2af1a2d: Minor cleanup
Date: Wed, 30 Nov 2022 05:57:24 -0500 (EST)

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

    Minor cleanup
---
 consult.el | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/consult.el b/consult.el
index ac66e36ffb..cace3ac556 100644
--- a/consult.el
+++ b/consult.el
@@ -1383,18 +1383,18 @@ See `isearch-open-necessary-overlays' and 
`isearch-open-overlay-temporary'."
       (lambda (open)
         (mapc #'funcall restore)
         (setq restore nil)
-        (when open
-          (dolist (ov (let ((inhibit-field-text-motion t))
-                        (overlays-in (line-beginning-position) 
(line-end-position))))
-            (let ((inv (overlay-get ov 'invisible)))
-              (when (and (invisible-p inv) (overlay-get ov 
'isearch-open-invisible))
-                (push (if-let (fun (overlay-get ov 
'isearch-open-invisible-temporary))
-                          (progn
-                            (funcall fun ov nil)
-                            (lambda () (funcall fun ov t)))
-                        (overlay-put ov 'invisible nil)
-                        (lambda () (overlay-put ov 'invisible inv)))
-                      restore)))))))))
+        (dolist (ov (let ((inhibit-field-text-motion t))
+                      (and open
+                           (overlays-in (line-beginning-position) 
(line-end-position)))))
+          (let ((inv (overlay-get ov 'invisible)))
+            (when (and (invisible-p inv) (overlay-get ov 
'isearch-open-invisible))
+              (push (if-let (fun (overlay-get ov 
'isearch-open-invisible-temporary))
+                        (progn
+                          (funcall fun ov nil)
+                          (lambda () (funcall fun ov t)))
+                      (overlay-put ov 'invisible nil)
+                      (lambda () (overlay-put ov 'invisible inv)))
+                    restore))))))))
 
 (defun consult--jump-1 (pos)
   "Go to POS and recenter."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]