master 60738e569d 3/3: Remove no-byte-compile cookie from some libraries

[Stefan Kangas]

branch: master
commit 60738e569d24b74b9e6973225d143b3468bfc60f
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    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.
---
 lisp/mh-e/mh-acros.el                 | 1 -
 test/lisp/comint-tests.el             | 4 ----
 test/lisp/emacs-lisp/nadvice-tests.el | 4 ----
 test/lisp/emacs-lisp/syntax-tests.el  | 4 ----
 test/lisp/xml-tests.el                | 4 ----
 test/src/font-tests.el                | 7 +------
 6 files changed, 1 insertion(+), 23 deletions(-)

diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index faf27cd066..2b4807ab69 100644
--- 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 2885aaa914..8402c13daf 100644
--- 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 a675986b90..fa76c72565 100644
--- 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 53812c0c80..f266db5c70 100644
--- 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 748f1e3944..0040e5c7ba 100644
--- 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 d99b0be89e..7e9669c651 100644
--- 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.