[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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/consult e4e2af1a2d: Minor cleanup,
ELPA Syncer <=