diff options
| author | Andrea Corallo <akrl@sdf.org> | 2022-07-08 10:27:45 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2022-07-13 15:19:27 +0200 |
| commit | 7af88de4103e6467e8edc9c7a15a97361d99822f (patch) | |
| tree | 863791d845a5db9197442cb758b3a7fe585309bc | |
| parent | 2209650089851b7ec7b0a87bd73a878f2da6975f (diff) | |
| download | emacs-7af88de4103e6467e8edc9c7a15a97361d99822f.tar.gz | |
Mark async worker tmp file as utf-8-emacs-unix (bug#48029)
* lisp/emacs-lisp/comp.el (comp-final): Mark async worker tmp file
as utf-8.
* test/src/comp-tests.el (48029-1): New test.
* test/src/comp-resources/comp-test-funcs.el
(comp-test-48029-nonascii-žžž-f): New function.
| -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 | 5 |
3 files changed, 8 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 7d09d2425b2..374b39e9990 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -3697,7 +3697,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 d740a5f8107..4cd4cc141fe 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 96f2b42c0d7..af40eb247de 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -513,6 +513,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. ;; |