From 78a609d454ecf2d8eaf12817fd04ce9869b49a5b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 16 Jun 2019 17:35:36 -0700 Subject: [PATCH] Disable filling of warnings in a bytecomp test * test/lisp/emacs-lisp/bytecomp-tests.el (test-suppression): Disable filling rather than working around it. --- test/lisp/emacs-lisp/bytecomp-tests.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 2.39.2