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

[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)



reply via email to

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