diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-01-07 20:49:26 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-01-07 20:49:26 -0500 |
| commit | ce08594b2ae9dd7cf79c49ac4e1a06bee1c9ee22 (patch) | |
| tree | 9a8b4201412743010ff158a684d9aaa655576a26 /lisp/international/titdic-cnv.el | |
| parent | 73fe3ad168e390056355660ae1b47a6994ae0803 (diff) | |
| download | emacs-ce08594b2ae9dd7cf79c49ac4e1a06bee1c9ee22.tar.gz | |
* lisp/international/titdic-cnv.el: Save generated files with utf-8
(titdic-convert, miscdic-convert): Use utf-8 when writing and don't
bother putting a `coding:` tag since utf-8 is the default anyway.
Diffstat (limited to 'lisp/international/titdic-cnv.el')
| -rw-r--r-- | lisp/international/titdic-cnv.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index ac5a0e8861d..ed020fe32a9 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -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)) |