6 files changed, 1 insertions, 23 deletions
diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index faf27cd0662..2b4807ab696 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 2885aaa9146..8402c13daf3 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 a675986b90b..fa76c725655 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 53812c0c80c..f266db5c702 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 748f1e39446..0040e5c7bab 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 d99b0be89e1..7e9669c6513 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.