(defvar ja-dic-filename "ja-dic.el")
;; To make a generated ja-dic.el smaller.
-(make-coding-system
- 'iso-2022-7bit-short
- 2 ?J
+(define-coding-system 'iso-2022-7bit-short
"Like `iso-2022-7bit' but no ASCII designation before SPC."
- '(ascii nil nil nil t t nil t)
- '((safe-charsets . t)))
+ :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 ...")
(save-excursion
(set-buffer buf)
(insert ")\n\n")))
-
+
(defconst skkdic-prefix-list '(skkdic-prefix-list))
(defun skkdic-convert-prefix (skkbuf buf)
(save-excursion
(set-buffer buf)
(insert ")\n\n")))
-
+
;; FROM and TO point the head and tail of "/J../J../.../".
(defun skkdic-get-candidate-list (from to)
(let (candidates)
(setq candidates (cdr candidates)))
(nreverse l)))
-(defconst skkdic-okuri-nasi-entries (list nil))
-(defconst skkdic-okuri-nasi-entries-count 0)
+(defvar skkdic-okuri-nasi-entries (list nil))
+(defvar skkdic-okuri-nasi-entries-count 0)
(defun skkdic-collect-okuri-nasi ()
(message "Collecting OKURI-NASI entries ...")
(set-buffer buf)
(erase-buffer)
(buffer-disable-undo)
- (insert ";;; ja-dic.el --- dictionary for Japanese input method\n"
+ (insert ";;; ja-dic.el --- dictionary for Japanese input method"
+ " -*-coding: iso-2022-jp;-*-\n"
";;\tGenerated by the command `skkdic-convert'\n"
";;\tDate: " (current-time-string) "\n"
";;\tOriginal SKK dictionary file: "
(goto-char to)
(skkdic-convert-prefix skkbuf buf)
- ;;
+ ;;
(skkdic-collect-okuri-nasi)
;; Convert okuri-nasi general entries.
(- ch) ; represented by a negative code.
(if (= ch ?\e$B!<\e(B) ; `\e$B!<\e(B' is represented by 0.
0
- (- (nth 2 (split-char ch)) 32))))
+ (- (logand (encode-char ch 'japanese-jisx0208) #xFF) 32))))
(setq i (1+ i)))
vec))
;; coding: iso-2022-7bit
;; End:
+;;; arch-tag: dec06fb0-8118-45b1-80d7-dc360b6fd3b2
;;; ja-dic-cnv.el ends here