diff options
| author | Kenichi Handa <handa@m17n.org> | 2002-03-01 02:08:10 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2002-03-01 02:08:10 +0000 |
| commit | a10201c80555e363ebf6e1dbacc304e2e16a7b58 (patch) | |
| tree | ff524f5e0e1254f8f1bf3cd8ba3cc9d952036803 /lisp/international/ja-dic-cnv.el | |
| parent | 06f76f0d47e0590856743a811cc9f7b0a3c92559 (diff) | |
| download | emacs-a10201c80555e363ebf6e1dbacc304e2e16a7b58.tar.gz | |
(skkdic-get-kana-compact-codes): Call encode-char instead of
split-char.
Diffstat (limited to 'lisp/international/ja-dic-cnv.el')
| -rw-r--r-- | lisp/international/ja-dic-cnv.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el index 113d00f572a..e47a7a58683 100644 --- a/lisp/international/ja-dic-cnv.el +++ b/lisp/international/ja-dic-cnv.el @@ -46,12 +46,13 @@ (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 ...") @@ -475,7 +476,7 @@ To get complete usage, invoke: (- ch) ; represented by a negative code. (if (= ch ?$B!<(B) ; `$B!<(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)) |