[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/ja-dic-cnv.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/ja-dic-cnv.el,v |
Date: |
Fri, 01 Feb 2008 16:02:56 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 08/02/01 16:01:31
Index: lisp/international/ja-dic-cnv.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/ja-dic-cnv.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- lisp/international/ja-dic-cnv.el 8 Jan 2008 20:46:05 -0000 1.23
+++ lisp/international/ja-dic-cnv.el 1 Feb 2008 16:01:16 -0000 1.24
@@ -48,12 +48,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 ...")
@@ -478,7 +479,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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/ja-dic-cnv.el,v,
Miles Bader <=