[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 78a609d 3/4: Disable filling of warnings in a bytec
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 78a609d 3/4: Disable filling of warnings in a bytecomp test |
Date: |
Sun, 16 Jun 2019 20:37:39 -0400 (EDT) |
branch: master
commit 78a609d454ecf2d8eaf12817fd04ce9869b49a5b
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
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 289bd18..0c151e3 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.