File tree Expand file tree Collapse file tree 1 file changed +3
-0
lines changed
Expand file tree Collapse file tree 1 file changed +3
-0
lines changed Original file line number Diff line number Diff 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 " ((" )
You can’t perform that action at this time.
0 commit comments