mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Fix for the new SKK-JISYO.L format.

Browse Source
This commit is contained in:
Kenichi Handa 2010-02-16 15:49:23 +09:00
parent 737b5223e1
commit fa6ea913cb
2 changed files with 23 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2010-02-16 Kenichi Handa <handa@m17n.org>
* international/ja-dic-cnv.el (iso-2022-7bit-short): Delete it.
(skkdic-convert-okuri-ari): Ignore lines starting with '>'.
(skkdic-convert): Use `euc-japan' coding system for writing.
2010-02-14 Juanma Barranquero <lekktu@gmail.com>
* outline.el (outline-head-from-level):

45
lisp/international/ja-dic-cnv.el
View File

@ -45,15 +45,6 @@
;; Name of a file to generate from SKK dictionary.
(defvar ja-dic-filename "ja-dic.el")
;; To make a generated ja-dic.el smaller.
(define-coding-system 'iso-2022-7bit-short
"Like `iso-2022-7bit' but no ASCII designation before SPC."
:coding-type 'iso-2022
:mnemonic ?J
:charset-list 'iso-2022
:designation [(ascii t) nil nil nil]
:flags '(short 7-bit designation))
(defun skkdic-convert-okuri-ari (skkbuf buf)
(message "Processing OKURI-ARI entries ...")
(goto-char (point-min))
@ -61,24 +52,22 @@
(insert ";; Setting okuri-ari entries.\n"
"(skkdic-set-okuri-ari\n"))
(while (not (eobp))
(let ((from (point))
to)
(end-of-line)
(setq to (point))
(if (/= (following-char) ?>)
(let ((from (point))
(to (line-end-position)))
(with-current-buffer buf
(insert-buffer-substring skkbuf from to)
(beginning-of-line)
(insert "\"")
(search-forward " ")
(delete-char 1) ; delete the first '/'
(let ((p (point)))
(end-of-line)
(delete-char -1) ; delete the last '/'
(subst-char-in-region p (point) ?/ ? 'noundo))
(insert "\"\n"))))
(with-current-buffer buf
(insert-buffer-substring skkbuf from to)
(beginning-of-line)
(insert "\"")
(search-forward " ")
(delete-char 1) ; delete the first '/'
(let ((p (point)))
(end-of-line)
(delete-char -1) ; delete the last '/'
(subst-char-in-region p (point) ?/ ? 'noundo))
(insert "\"\n"))
(forward-line 1)))
(forward-line 1))
(with-current-buffer buf
(insert ")\n\n")))
@ -348,7 +337,7 @@ The name of generated file is specified by the variable `ja-dic-filename'."
(erase-buffer)
(buffer-disable-undo)
(insert ";;; ja-dic.el --- dictionary for Japanese input method"
" -*-coding: iso-2022-jp; byte-compile-disable-print-circle:t; -*-\n"
" -*-coding: euc-japan; byte-compile-disable-print-circle:t; -*-\n"
";;\tGenerated by the command `skkdic-convert'\n"
";;\tDate: " (current-time-string) "\n"
";;\tOriginal SKK dictionary file: "
@ -410,7 +399,7 @@ The name of generated file is specified by the variable `ja-dic-filename'."
;; Save the working buffer.
(set-buffer buf)
(set-visited-file-name (expand-file-name ja-dic-filename dirname) t)
(set-buffer-file-coding-system 'iso-2022-7bit-short)
(set-buffer-file-coding-system 'euc-japan)
(save-buffer 0))
(kill-buffer skkbuf)
(switch-to-buffer buf)))