[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ce08594: * lisp/international/titdic-cnv.el: Save g
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master ce08594: * lisp/international/titdic-cnv.el: Save generated files with utf-8 |
Date: |
Mon, 7 Jan 2019 20:49:34 -0500 (EST) |
branch: master
commit ce08594b2ae9dd7cf79c49ac4e1a06bee1c9ee22
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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.
---
lisp/international/titdic-cnv.el | 8 ++------
1 file changed, 2 insertions(+), 6 deletions(-)
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index ac5a0e8..ed020fe 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ce08594: * lisp/international/titdic-cnv.el: Save generated files with utf-8,
Stefan Monnier <=