[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master e637afc 2/3: Remove spurious space in byte-compiler warning

From: Stefan Kangas
Subject: master e637afc 2/3: Remove spurious space in byte-compiler warning
Date: Mon, 6 Dec 2021 16:30:49 -0500 (EST)

branch: master
commit e637afce45e9a982e284d344a35b523d74d88010
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Remove spurious space in byte-compiler warning
    * lisp/emacs-lisp/bytecomp.el
    (byte-compile-docstring-length-warn): Remove spurious space in
    byte-compiler warning.
    * test/lisp/emacs-lisp/bytecomp-tests.el
    ("warn-wide-docstring-defun.el"): Update test.
 lisp/emacs-lisp/bytecomp.el            | 4 ++--
 test/lisp/emacs-lisp/bytecomp-tests.el | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index d6b25e0..b1afa6f 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1712,10 +1712,10 @@ It is too wide if it has any lines longer than the 
largest of
                           (nth 2 form)))))
       (when (and (consp name) (eq (car name) 'quote))
         (setq name (cadr name)))
-      (setq name (if name (format " `%s'" name) ""))
+      (setq name (if name (format " `%s' " name) ""))
       (when (and kind docs (stringp docs)
                  (byte-compile--wide-docstring-p docs col))
-        (byte-compile-warn "%s%s docstring wider than %s characters"
+        (byte-compile-warn "%s%sdocstring wider than %s characters"
                            kind name col))))
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el 
index 468b9b3..7e51f82 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -979,7 +979,7 @@ byte-compiled.  Run with dynamic binding."
- "wider than .* characters")
+ "Warning: docstring wider than .* characters")

reply via email to

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