From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 22 Nov 2020 02:24:26 +0000 (+0100)
Subject: Test interactive-only spec of with-suppressed-warnings
X-Git-Tag: emacs-28.0.90~5070
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6339fc19c378d66ce1bc53499552dfaa3c0c8c0;p=emacs.git

Test interactive-only spec of with-suppressed-warnings

* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-test--with-suppressed-warnings): Test suppressing warning
with interactive-only.
---

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index 13cbedfe1f7..e0a3cc2fb82 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -808,6 +808,12 @@ literals (Bug#20852)."
    '((obsolete obsolete-variable))
    "obsolete")
 
+  (test-suppression
+   '(defun zot ()
+      (next-line))
+   '((interactive-only next-line))
+   "interactive use only")
+
   (test-suppression
    '(defun zot ()
       (mapcar #'list '(1 2 3))