From a3f917c42d99eee358315844c520aa2b65aa18ca Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 4 Aug 2021 10:44:14 -0400 Subject: [PATCH] dev: fix off-by-one for line length rule --- core/cli/ci.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/cli/ci.el b/core/cli/ci.el index 5bdbe69ff..0806d69a9 100644 --- a/core/cli/ci.el +++ b/core/cli/ci.el @@ -95,13 +95,13 @@ (cons (lambda () (catch 'found (unless (looking-at "\\(bump\\|revert\\|merge\\)") - (while (re-search-forward "^[^\n]\\{72,\\}" nil t) + (while (re-search-forward "^[^\n]\\{73,\\}" nil t) ;; Exclude ref lines, bump lines, or lines with URLs (save-excursion (or (re-search-backward "^\\(Ref\\|Close\\|Fix\\|Revert\\) " nil t) (let ((bump-re "\\(https?://.+\\|[^/]+\\)/[^/]+@[a-z0-9]\\{12\\}")) (re-search-backward (format "^%s -> %s$" bump-re bump-re) nil t)) - (re-search-backward "https?://[^ ]+\\{72,\\}" nil t) + (re-search-backward "https?://[^ ]+\\{73,\\}" nil t) (throw 'found t))))))) "Body line length exceeds 72 characters")