diff options
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 | ||||
| -rw-r--r-- | test/src/comp-resources/comp-test-funcs.el | 2 | ||||
| -rw-r--r-- | test/src/comp-tests.el | 10 |
3 files changed, 8 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index c722c0b259c..9a635a47763 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -3695,7 +3695,7 @@ Prepare every function for final compilation and drive the C back-end." (file-name-base output) "-") nil ".el"))) (with-temp-file temp-file - (insert ";; -*-coding: nil; -*-\n") + (insert ";; -*-coding: utf-8-emacs-unix; -*-\n") (mapc (lambda (e) (insert (prin1-to-string e))) expr)) diff --git a/test/src/comp-resources/comp-test-funcs.el b/test/src/comp-resources/comp-test-funcs.el index 0a60f4d6cc4..9092f040c80 100644 --- a/test/src/comp-resources/comp-test-funcs.el +++ b/test/src/comp-resources/comp-test-funcs.el @@ -515,6 +515,8 @@ (defun comp-test-47868-4-f () #(" " 0 1 (face font-lock-keyword-face))) +(defun comp-test-48029-nonascii-žžž-f (arg) + (when arg t)) ;;;;;;;;;;;;;;;;;;;; diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index e7b534d00ec..1b239cec795 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -508,11 +508,6 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." (should (string= (comp-test-45635-f :height 180 :family "PragmataPro Liga") "PragmataPro Liga"))) -(comp-deftest 45603-1 () - "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-12/msg01994.html>" - (load (native-compile (ert-resource-file "comp-test-45603.el"))) - (should (fboundp 'comp-test-45603--file-local-name))) - (comp-deftest 46670-1 () "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2021-02/msg01413.html>" (should (string= (comp-test-46670-2-f "foo") "foo")) @@ -532,6 +527,11 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." (should (eq (comp-test-47868-1-f) (comp-test-47868-3-f))) (should (eq (comp-test-47868-2-f) (comp-test-47868-4-f)))) +(comp-deftest 48029-1 () + "<https://lists.gnu.org/archive/html/bug-gnu-emacs/2022-07/msg00666.html>" + (should (subr-native-elisp-p + (symbol-function 'comp-test-48029-nonascii-žžž-f)))) + ;;;;;;;;;;;;;;;;;;;;; ;; Tromey's tests. ;; |