diff options
| author | Stefan Kangas | 2022-08-08 11:50:33 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-08-08 11:50:33 +0200 |
| commit | 60738e569d24b74b9e6973225d143b3468bfc60f (patch) | |
| tree | c13f8b2999b8af3e2c637af6a7f7185b997d7a83 /test/src | |
| parent | 77bf50cb330807039cc84138fb84870bd6d532e2 (diff) | |
| download | emacs-60738e569d24b74b9e6973225d143b3468bfc60f.tar.gz emacs-60738e569d24b74b9e6973225d143b3468bfc60f.zip | |
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.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/font-tests.el | 7 |
1 files changed, 1 insertions, 6 deletions
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.") | |||
| 96 | (put 'font-parse-check 'ert-explainer 'font-parse-explain) | 96 | (put 'font-parse-check 'ert-explainer 'font-parse-explain) |
| 97 | 97 | ||
| 98 | (defun font-parse-explain (name prop expected) | 98 | (defun font-parse-explain (name prop expected) |
| 99 | (let ((result (font-get (font-spec :name name) prop)) | 99 | (let ((propname (symbol-name prop))) |
| 100 | (propname (symbol-name prop))) | ||
| 101 | (format "Parsing `%s': expected %s `%s', got `%s'." | 100 | (format "Parsing `%s': expected %s `%s', got `%s'." |
| 102 | name (substring propname 1) expected | 101 | name (substring propname 1) expected |
| 103 | (font-get (font-spec :name name) prop)))) | 102 | (font-get (font-spec :name name) prop)))) |
| @@ -184,9 +183,5 @@ expected font properties from parsing NAME.") | |||
| 184 | :family) | 183 | :family) |
| 185 | 'name-with-lots-of-dashes))) | 184 | 'name-with-lots-of-dashes))) |
| 186 | 185 | ||
| 187 | ;; Local Variables: | ||
| 188 | ;; no-byte-compile: t | ||
| 189 | ;; End: | ||
| 190 | |||
| 191 | (provide 'font-tests) | 186 | (provide 'font-tests) |
| 192 | ;;; font-tests.el ends here. | 187 | ;;; font-tests.el ends here. |