[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/titdic-cnv.el,v
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/titdic-cnv.el,v |
Date: |
Sun, 11 Feb 2007 02:32:53 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Kenichi Handa <handa> 07/02/11 02:32:53
Index: titdic-cnv.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/titdic-cnv.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- titdic-cnv.el 29 Jan 2007 11:08:09 -0000 1.49
+++ titdic-cnv.el 11 Feb 2007 02:32:53 -0000 1.50
@@ -471,13 +471,16 @@
Optional argument DIRNAME if specified is the directory name under which
the generated Quail package is saved."
(interactive "FTIT dictionary file: ")
- (let ((coding-system-for-write 'iso-2022-7bit))
+ (let ((coding-system-for-write 'iso-2022-7bit-unix))
(with-temp-file (tit-make-quail-package-file-name filename dirname)
- (set-buffer-file-coding-system 'iso-2022-7bit)
+ ;; Explicitly speficy eol format to `unix'.
+ (set-buffer-file-coding-system 'iso-2022-7bit-unix)
(let ((standard-output (current-buffer)))
(with-temp-buffer
(set-buffer-multibyte nil)
- (let ((coding-system-for-read 'no-conversion))
+ ;; Here we must use `raw-text' instead of `no-conversion' to
+ ;; enable auto-decoding of eol format (CRLF->LF).
+ (let ((coding-system-for-read 'raw-text))
(insert-file-contents (expand-file-name filename)))
;; Decode the buffer contents from the encoding specified by a
@@ -1145,7 +1148,8 @@
copyright (nth 6 slot))
(message "Converting %s to %s..." dicfile quailfile)
(with-temp-file (expand-file-name quailfile dirname)
- (set-buffer-file-coding-system 'iso-2022-7bit)
+ ;; Explicitly speficy eol format to `unix'.
+ (set-buffer-file-coding-system 'iso-2022-7bit-unix)
(insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; ")
(insert "byte-compile-disable-print-circle:t; -*-\n");
(insert ";; Generated by the command `miscdic-convert'\n")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/titdic-cnv.el,v,
Kenichi Handa <=