1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00

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.
This commit is contained in:
Stefan Kangas 2022-08-08 11:50:33 +02:00
parent 77bf50cb33
commit 60738e569d
6 changed files with 1 additions and 23 deletions

View File

@ -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:

View File

@ -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

View File

@ -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

View File

@ -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.

View File

@ -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

View File

@ -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.