From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 15 Jun 2021 13:33:03 +0000 (+0200)
Subject: Fix false positives in docstring width warning with (fn...) constructs.
X-Git-Tag: emacs-28.0.90~2117
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1756e4757cee336defa4aea667d0e991737f562c;p=emacs.git

Fix false positives in docstring width warning with (fn...) constructs.

* lisp/emacs-lisp/bytecomp.el (byte-compile--wide-docstring-p):
Don't consider the function signature when determining whether the
doc string is too wide (bug#49007).  (The signature is folded
later when displaying help.)
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 5ed6bfeddcc..472e0ba3ba3 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1635,7 +1635,10 @@ URLs."
          ;; Ignore these `substitute-command-keys' substitutions.
          (seq "\\" (or "="
                        (seq "<" (* (not ">")) ">")
-                       (seq "{" (* (not "}")) "}")))))
+                       (seq "{" (* (not "}")) "}")))
+         ;; Ignore the function signature that's stashed at the end of
+         ;; the doc string (in some circumstances).
+         (seq bol "(fn (" (* nonl))))
     ""
     ;; Heuristic: assume these substitutions are of some length N.
     (replace-regexp-in-string