From: Glenn Morris <rgm@gnu.org>
Date: Mon, 17 Jun 2019 00:35:36 +0000 (-0700)
Subject: Disable filling of warnings in a bytecomp test
X-Git-Tag: emacs-27.0.90~2459
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=78a609d454ecf2d8eaf12817fd04ce9869b49a5b;p=emacs.git

Disable filling of warnings in a bytecomp test

* test/lisp/emacs-lisp/bytecomp-tests.el (test-suppression):
Disable filling rather than working around it.
---

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index 289bd18a961..0c151e39169 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -691,13 +691,14 @@ literals (Bug#20852)."
         (byte-compile-log-buffer (generate-new-buffer " *Compile-Log*")))
     ;; Check that we get a warning without suppression.
     (with-current-buffer byte-compile-log-buffer
+      (setq-local fill-column 9999)
+      (setq-local warning-fill-column fill-column)
       (let ((inhibit-read-only t))
         (erase-buffer)))
     (test-byte-comp-compile-and-load t form)
     (with-current-buffer byte-compile-log-buffer
       (unless match
         (error "%s" (buffer-string)))
-      (setq match (replace-regexp-in-string " " "[ \n]+" match nil t))
       (goto-char (point-min))
       (should (string-match match (buffer-string))))
     ;; And that it's gone now.