Remove no-byte-compile cookie from some libraries

This gives us back byte-compiler warnings for these files.
* lisp/mh-e/mh-acros.el:
* test/lisp/comint-tests.el:
* test/lisp/emacs-lisp/nadvice-tests.el:
* test/lisp/emacs-lisp/syntax-tests.el:
* test/lisp/xml-tests.el:
* test/src/font-tests.el: Remove no-byte-compile cookie.
* test/src/font-tests.el (font-parse-explain): Fix warning.

diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index faf27cd06626c185df307699875b66b698bef565..2b4807ab696a67bc0db0ae153e2af10bf8e4ff1c 100644 (file)
--- a/lisp/mh-e/mh-acros.el
+++ b/lisp/mh-e/mh-acros.el
@@ -288,7 +288,6 @@ form (FUNCNAME ARGLIST BODY...), similar to defun."
 (provide 'mh-acros)
 
 ;; Local Variables:
-;; no-byte-compile: t
 ;; sentence-end-double-space: nil
 ;; End:
 

diff --git a/test/lisp/comint-tests.el b/test/lisp/comint-tests.el
index 2885aaa91469406cc67dba6004e8011cf009b43e..8402c13daf3721ab0f6e98a8c6478dd750554bd5 100644 (file)
--- a/test/lisp/comint-tests.el
+++ b/test/lisp/comint-tests.el
@@ -95,8 +95,4 @@ flow.  Hook function returns alternative password."
 password flow if it returns a nil value."
   (comint-tests/test-password-function #'ignore))
 
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
-
 ;;; comint-tests.el ends here

diff --git a/test/lisp/emacs-lisp/nadvice-tests.el b/test/lisp/emacs-lisp/nadvice-tests.el
index a675986b90bf8a64b1fef25eaef2a5ae1551b246..fa76c725655f349d1c8c1b05bef6c6767f1a74c8 100644 (file)
--- a/test/lisp/emacs-lisp/nadvice-tests.el
+++ b/test/lisp/emacs-lisp/nadvice-tests.el
@@ -213,8 +213,4 @@ function being an around advice."
     (should (equal (cl-prin1-to-string (car x))
                    "#f(advice first :before #f(advice car :after cdr))"))))
 
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
-
 ;;; nadvice-tests.el ends here

diff --git a/test/lisp/emacs-lisp/syntax-tests.el b/test/lisp/emacs-lisp/syntax-tests.el
index 53812c0c80c8cdd7f2e4c99f02ba1e90a5ff2127..f266db5c702ef174302afb7b2612525a4c206992 100644 (file)
--- a/test/lisp/emacs-lisp/syntax-tests.el
+++ b/test/lisp/emacs-lisp/syntax-tests.el
@@ -60,8 +60,4 @@
   (should-error
    (syntax-propertize--shift-groups-and-backrefs "\\(a\\)\\3" 7)))
 
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
-
 ;;; syntax-tests.el ends here.

diff --git a/test/lisp/xml-tests.el b/test/lisp/xml-tests.el
index 748f1e394468d34c72b29ab0eae723c3477d006d..0040e5c7bab4974b4f03c30838ced4cf0787a5cc 100644 (file)
--- a/test/lisp/xml-tests.el
+++ b/test/lisp/xml-tests.el
@@ -195,8 +195,4 @@ Parser is called with and without `symbol-qnames' argument.")
     (should (equal (cdr test)
                    (xml-parse-region (point-min) (point-max))))))
 
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
-
 ;;; xml-tests.el ends here

diff --git a/test/src/font-tests.el b/test/src/font-tests.el
index d99b0be89e1fba90e6fba47965ff047088bb84ca..7e9669c6513ea7eddc8fffe33ff7aa758a9b834f 100644 (file)
--- a/test/src/font-tests.el
+++ b/test/src/font-tests.el
@@ -96,8 +96,7 @@ expected font properties from parsing NAME.")
 (put 'font-parse-check 'ert-explainer 'font-parse-explain)
 
 (defun font-parse-explain (name prop expected)
-  (let ((result (font-get (font-spec :name name) prop))
-       (propname (symbol-name prop)))
+  (let ((propname (symbol-name prop)))
     (format "Parsing `%s': expected %s `%s', got `%s'."
            name (substring propname 1) expected
            (font-get (font-spec :name name) prop))))
@@ -184,9 +183,5 @@ expected font properties from parsing NAME.")
                   :family)
                  'name-with-lots-of-dashes)))
 
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
-
 (provide 'font-tests)
 ;;; font-tests.el ends here.