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:
parent
77bf50cb33
commit
60738e569d
@ -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:
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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.
|
||||
|
@ -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
|
||||
|
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user