Mercurial > hg > xemacs-beta

comparison lisp/language/japanese.el @ 219:262b8bb4a523 r20-4b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents 41ff10fd062f
children
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
118 (its:get-mode-map "zenkaku-downcase") 118 (its:get-mode-map "zenkaku-downcase")
119 (its:get-mode-map "zenkaku-upcase")) 119 (its:get-mode-map "zenkaku-upcase"))
120 its:*standard-modes*)) 120 its:*standard-modes*))
121 (provide 'egg-jpn)) 121 (provide 'egg-jpn))
122 (setq wnn-server-type 'jserver) 122 (setq wnn-server-type 'jserver)
123 (setq egg-default-startup-file "eggrc-wnn") 123 ;; Can't do this here any more. Must do it when selecting egg-wnn
124 ;; or egg-sj3
125 ;; (setq egg-default-startup-file "eggrc-wnn")
124 (setq-default its:*current-map* (its:get-mode-map "roma-kana")))) 126 (setq-default its:*current-map* (its:get-mode-map "roma-kana"))))
125 127
126 ;; stuff for providing gramatic processing of Japanese text 128 ;; stuff for providing gramatic processing of Japanese text
127 ;; something like this should probably be created for all environments... 129 ;; something like this should probably be created for all environments...
128 130