Mercurial > hg > xemacs-beta

comparison lisp/mule/japanese-hooks.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 54cc21c15cbb
children a145efe76779
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
95 "\\)" 95 "\\)"
96 "[ \t\n]*")) 96 "[ \t\n]*"))
97 (setq paragraph-start "^[ 　\t\n\f]") 97 (setq paragraph-start "^[ 　\t\n\f]")
98 (setq paragraph-separate "^[ 　\t\f]*$") 98 (setq paragraph-separate "^[ 　\t\f]*$")
99 99
100 ;; EGG specific setup
101 ;;(when (featurep 'egg)
102 ;; (setq wnn-server-type 'jserver)
103 ;; (load "its/hira")
104 ;; (load "its/kata")
105 ;; (load "its/hankaku")
106 ;; (load "its/zenkaku")
107 ;; (setq its:*standard-modes*
108 ;; (append
109 ;; (list (its:get-mode-map "roma-kana")
110 ;; (its:get-mode-map "roma-kata")
111 ;; (its:get-mode-map "downcase")
112 ;; (its:get-mode-map "upcase")
113 ;; (its:get-mode-map "zenkaku-downcase")
114 ;; (its:get-mode-map "zenkaku-upcase"))
115 ;; its:*standard-modes*)))
116
117 (make-coding-system 100 (make-coding-system
118 'shift-jis 'shift-jis 101 'shift-jis 'shift-jis
119 "Coding-system of Shift-JIS used in Japan." 102 "Coding-system of Shift-JIS used in Japan."
120 '(mnemonic "SJIS")) 103 '(mnemonic "SJIS"))
121 104
162 (set-coding-category-system 'iso-7 'iso-2022-jp) 145 (set-coding-category-system 'iso-7 'iso-2022-jp)
163 (set-coding-category-system 'iso-8-2 'euc-japan) 146 (set-coding-category-system 'iso-8-2 'euc-japan)
164 (set-coding-priority-list '(iso-7 iso-8-2 shift-jis no-conversion)) 147 (set-coding-priority-list '(iso-7 iso-8-2 shift-jis no-conversion))
165 ;;'(iso-8-2 iso-8-designate iso-8-1 shift-jis big5) 148 ;;'(iso-8-2 iso-8-designate iso-8-1 shift-jis big5)
166 149
167 ;;(when (featurep 'egg) 150 ;; EGG specific setup 97.02.05 jhod
168 ;; (setq-default its:*current-map* (its:get-mode-map "roma-kana"))) 151 (when (featurep 'egg)
152 (when (not (featurep 'egg-jpn))
153 (provide 'egg-jpn)
154 (setq wnn-server-type 'jserver)
155 (load "its/its-hira")
156 (load "its/its-kata")
157 (load "its/its-hankaku")
158 (load "its/its-zenkaku")
159 (setq its:*standard-modes*
160 (append
161 (list (its:get-mode-map "roma-kana")
162 (its:get-mode-map "roma-kata")
163 (its:get-mode-map "downcase")
164 (its:get-mode-map "upcase")
165 (its:get-mode-map "zenkaku-downcase")
166 (its:get-mode-map "zenkaku-upcase"))
167 its:*standard-modes*)))
168 (setq-default its:*current-map* (its:get-mode-map "roma-kana")))
169 169
170 ;; Added by mrb, who doesn't speak japanese - so be sceptical... 170 ;; Added by mrb, who doesn't speak japanese - so be sceptical...
171 ;; (when (string-match "solaris\\|sunos" system-configuration) 171 ;; (when (string-match "solaris\\|sunos" system-configuration)
172 ;;(set-native-coding-system 'euc-japan) ; someday 172 ;;(set-native-coding-system 'euc-japan) ; someday
173 (set-pathname-coding-system 'euc-japan) 173 (set-pathname-coding-system 'euc-japan)