Mercurial > emacs
diff lisp/international/ja-dic-cnv.el @ 89483:2f877ed80fa6
*** empty log message ***
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 08 Sep 2003 12:53:41 +0000 |
parents | 375f2633d815 d0d26a8cd2f8 |
children | 68c22ea6027c |
line wrap: on
line diff
--- a/lisp/international/ja-dic-cnv.el Mon Sep 08 11:56:09 2003 +0000 +++ b/lisp/international/ja-dic-cnv.el Mon Sep 08 12:53:41 2003 +0000 @@ -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 ...") @@ -476,7 +477,7 @@ (- 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))