procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Mark async worker tmp file as utf-8-emacs-unix (bug#48029)

Browse source 
* 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.
This commit is contained in:
Andrea Corallo 2022-07-08 10:27:45 +02:00
parent 2209650089
commit 7af88de410
3 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/comp.el
View file

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

2
test/src/comp-resources/comp-test-funcs.el
View file

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

5
test/src/comp-tests.el
View file

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