[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult 80dd8c3c62 1/3: consult-info: Formatting
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult 80dd8c3c62 1/3: consult-info: Formatting |
Date: |
Thu, 26 Jan 2023 05:57:31 -0500 (EST) |
branch: externals/consult
commit 80dd8c3c62f34463fd7869a6f1c135e8fd189915
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
consult-info: Formatting
---
consult-info.el | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/consult-info.el b/consult-info.el
index 50f976ea92..139401cecb 100644
--- a/consult-info.el
+++ b/consult-info.el
@@ -40,8 +40,7 @@
(widen)
(goto-char (point-min))
;; TODO subfile support?!
- (while (and (not (eobp))
- (ignore-errors (re-search-forward (car regexps) nil t)))
+ (while (and (not (eobp)) (re-search-forward (car regexps) nil t))
(let ((bol (pos-bol))
(eol (pos-eol))
node cand)
@@ -55,11 +54,10 @@
;; not work?!
(not (re-search-forward "[^[:print:]]" eol t))
;; Matches all regexps
- (seq-every-p
- (lambda (r)
- (goto-char bol)
- (ignore-errors (re-search-forward r eol t)))
- (cdr regexps))
+ (seq-every-p (lambda (r)
+ (goto-char bol)
+ (re-search-forward r eol t))
+ (cdr regexps))
;; Find node beginning
(progn
(goto-char bol)