Mercurial > hg > xemacs-beta

comparison lisp/mule/japanese.el @ 450:98528da0b7fc r21-2-40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-40
author cvs
date Mon, 13 Aug 2007 11:39:20 +0200
parents 3ecd8885ac67
children 943eaba38521
comparison
equal deleted inserted replaced
449:c83749d23eb5 450:98528da0b7fc
123 ;; Can't do this here any more. Must do it when selecting egg-wnn 123 ;; Can't do this here any more. Must do it when selecting egg-wnn
124 ;; or egg-sj3 124 ;; or egg-sj3
125 ;; (setq egg-default-startup-file "eggrc-wnn") 125 ;; (setq egg-default-startup-file "eggrc-wnn")
126 (setq-default its:*current-map* (its:get-mode-map "roma-kana")))) 126 (setq-default its:*current-map* (its:get-mode-map "roma-kana"))))
127 127
128 ;; stuff for providing gramatic processing of Japanese text 128 ;; stuff for providing grammatic processing of Japanese text
129 ;; something like this should probably be created for all environments... 129 ;; something like this should probably be created for all environments...
130 ;; #### Arrgh. This stuff should defvar'd in either fill.el or kinsoku.el.
131 ;; Then the language environment should set these things, probably buffer-
132 ;; locally.
130 133
131 (defvar aletter (concat "\\(" ascii-char "\\|" kanji-char "\\)")) 134 (defvar aletter (concat "\\(" ascii-char "\\|" kanji-char "\\)"))
132 (defvar kanji-space-insertable (concat 135 (defvar kanji-space-insertable (concat
133 "$B!"(B" aletter "\\|" 136 "$B!"(B" aletter "\\|"
134 "$B!#(B" aletter "\\|" 137 "$B!#(B" aletter "\\|"
135 aletter "$B!J(B" "\\|" 138 aletter "$B!J(B" "\\|"
136 "$B!K(B" aletter "\\|" 139 "$B!K(B" aletter "\\|"
137 ascii-alphanumeric kanji-kanji-char "\\|" 140 ascii-alphanumeric kanji-kanji-char "\\|"
138 kanji-kanji-char ascii-alphanumeric )) 141 kanji-kanji-char ascii-alphanumeric ))
139 142
143 ;; #### will be moved to fill.el
140 (defvar space-insertable (concat " " aletter "\\|" kanji-space-insertable) 144 (defvar space-insertable (concat " " aletter "\\|" kanji-space-insertable)
141 "Regexp for finding points that can have spaces inserted into them for justification") 145 "Regexp for finding points that can have spaces inserted into them for justification")
142 146
143 ;; (make-coding-system 147 ;; (make-coding-system
144 ;; 'iso-2022-jp 2 ?J 148 ;; 'iso-2022-jp 2 ?J
256 shift_jis iso-2022-jp-2) 260 shift_jis iso-2022-jp-2)
257 (coding-priority iso-2022-jp euc-jp 261 (coding-priority iso-2022-jp euc-jp
258 shift_jis iso-2022-jp-2) 262 shift_jis iso-2022-jp-2)
259 ;; (input-method . "japanese") 263 ;; (input-method . "japanese")
260 (features japan-util) 264 (features japan-util)
261 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, )IºÝÆÁÊ")-A 265 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B")
262 (documentation . t))) 266 (documentation . t)))
263 267
264 ;;; japanese.el ends here 268 ;;; japanese.el ends here