Skip to content

Commit f29d17b

Browse files
jcs090218tarsius
authored andcommitted
Explicitly select utf-8 to encode generated files
See #94.
1 parent 96fb2ef commit f29d17b

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

package-build.el

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1022,6 +1022,7 @@ Use a sandbox if `package-build--use-sandbox' is non-nil."
10221022
(defun package-build--write-pkg-file (rcp dir)
10231023
(pcase-let (((eieio name version summary dependencies) rcp))
10241024
(with-temp-file (expand-file-name (format "%s-pkg.el" name) dir)
1025+
(set-buffer-file-coding-system 'utf-8)
10251026
(insert ";; -*- no-byte-compile: t; lexical-binding: nil -*-\n")
10261027
(insert (format "(define-package \"%s\" \"%s\"\n" name version))
10271028
(insert (format " %s\n" (prin1-to-string (concat summary "."))))
@@ -1778,6 +1779,7 @@ If optional PRETTY-PRINT is non-nil, then pretty-print
17781779
vc-pkgs))))))
17791780
(setq entries (cl-sort entries #'string< :key #'car))
17801781
(with-temp-file (or file (expand-file-name "archive-contents"))
1782+
(set-buffer-file-coding-system 'utf-8)
17811783
(let ((print-level nil)
17821784
(print-length nil))
17831785
(if pretty-print
@@ -1791,6 +1793,7 @@ If optional PRETTY-PRINT is non-nil, then pretty-print
17911793
(setq vc-pkgs (cl-sort vc-pkgs #'string< :key #'car))
17921794
(with-temp-file (expand-file-name "elpa-packages.eld"
17931795
(and file (file-name-nondirectory file)))
1796+
(set-buffer-file-coding-system 'utf-8)
17941797
(let ((print-level nil)
17951798
(print-length nil))
17961799
(insert "((")

0 commit comments

Comments
 (0)