From: Kenichi Handa <handa@m17n.org>
Date: Fri, 1 Mar 2002 02:08:10 +0000 (+0000)
Subject: (skkdic-get-kana-compact-codes): Call encode-char instead of
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~975
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a10201c80555e363ebf6e1dbacc304e2e16a7b58;p=emacs.git

(skkdic-get-kana-compact-codes): Call encode-char instead of
split-char.
---

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 ?ー)		; `ー' is represented by 0.
 		  0
-		(- (nth 2 (split-char ch)) 32))))
+		(- (logand (encode-char ch 'japanese-jisx0208) #xFF) 32))))
       (setq i (1+ i)))
     vec))