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

* lisp/international/titdic-cnv.el: Save generated files with utf-8

Browse source 
(titdic-convert, miscdic-convert): Use utf-8 when writing and don't
bother putting a `coding:` tag since utf-8 is the default anyway.
This commit is contained in:
Stefan Monnier 2019-01-07 20:49:26 -05:00
parent 73fe3ad168
commit ce08594b2a
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/international/titdic-cnv.el
View file

@ -500,8 +500,7 @@ the generated Quail package is saved."
(goto-char (point-min))
(decode-coding-region (point-min) (point-max) coding-system)
;; Explicitly set eol format to `unix'.
(setq coding-system-for-write
(coding-system-change-eol-conversion coding-system 'unix))
(setq coding-system-for-write 'utf-8-unix)
(remove-text-properties (point-min) (point-max) '(charset nil)))
(set-buffer-multibyte t)
@ -522,7 +521,6 @@ the generated Quail package is saved."
(princ ";; Local Variables:\n")
(princ ";; version-control: never\n")
(princ ";; no-update-autoloads: t\n")
(princ (format ";; coding: %s\n" coding-system-for-write))
(princ ";; End:\n"))))))
;;;###autoload
@ -1148,8 +1146,7 @@ the generated Quail package is saved."
copyright (nth 6 slot))
(message "Converting %s to %s..." dicfile quailfile)
;; Explicitly set eol format to `unix'.
(setq coding-system-for-write
(coding-system-change-eol-conversion coding 'unix))
(setq coding-system-for-write 'utf-8-unix)
(with-temp-file (expand-file-name quailfile dirname)
(insert (format-message ";; Quail package `%s'\n" name))
(insert (format-message
@ -1178,7 +1175,6 @@ the generated Quail package is saved."
(insert ";; Local Variables:\n"
";; version-control: never\n"
";; no-update-autoloads: t\n"
(format ";; coding: %s\n" coding)
";; End:\n\n"
";;; " quailfile " ends here\n"))
(message "Converting %s to %s...done" dicfile quailfile))