Mercurial > hg > xemacs-beta

comparison lisp/mule/japanese.el @ 4072:aa28d959af41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-07-22 22:03:29 by aidan] Add support for non-ISO2022 8 bit fixed-width coding-systems
author aidan
date Sun, 22 Jul 2007 22:04:14 +0000
parents 98af8a976fc3
children edb00a8b4eff
comparison
equal deleted inserted replaced
4071:d607d13fca67 4072:aa28d959af41
59 short-name "JISX0213-2" 59 short-name "JISX0213-2"
60 long-name "JISX0213-2" 60 long-name "JISX0213-2"
61 )) 61 ))
62 62
63 ;;; Syntax of Japanese characters. 63 ;;; Syntax of Japanese characters.
64 (modify-syntax-entry 'katakana-jisx0201 "w")
65 (modify-syntax-entry 'japanese-jisx0212 "w")
66
67 (modify-syntax-entry 'japanese-jisx0208 "w")
68 (loop for row in '(33 34 40) 64 (loop for row in '(33 34 40)
69 do (modify-syntax-entry `[japanese-jisx0208 ,row] "_")) 65 do (modify-syntax-entry `[japanese-jisx0208 ,row] "_"))
70 (loop for char in '(?$B!<(B ?$B!+(B ?$B!,(B ?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B) 66 (loop for char in '(?$B!<(B ?$B!+(B ?$B!,(B ?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B)
71 do (modify-syntax-entry char "w")) 67 do (modify-syntax-entry char "w"))
72 (modify-syntax-entry ?\$B!J(B "($B!K(B") 68 (modify-syntax-entry ?\$B!J(B "($B!K(B")