Remove duplicate let-binding

This commit is contained in:
TEC 2022-12-21 00:48:13 +08:00
parent 0761e32723
commit 4f1d4698f1
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 3 additions and 2 deletions

View File

@ -820,9 +820,10 @@ the longest match will be used.
This is necessitated by problems when trying to apply
`regexp-opt' to many items, which can trigger:
Lisp error: (invalid-regexp \"Regular expression too big\")"
(let ((match-start most-positive-fixnum) (match-stop -1)
(let ((match-start most-positive-fixnum)
(match-stop -1)
(case-fold-search case-insensitive)
the-match match-stop tag)
the-match tag)
(dolist (t-pat tagged-patterns)
(save-excursion
(when (and (re-search-forward (cdr t-pat) limit t)