File: command-japanese.tcl

package info (click to toggle)
dotfile 1%3A2.4-1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 5,472 kB
  • ctags: 523
  • sloc: tcl: 14,072; sh: 918; makefile: 177; lisp: 18; ansic: 7
file content (16 lines) | stat: -rw-r--r-- 643 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
####################################################
### There are local commands for Japanese
####################################################

### for Japanese input
bind Text <Shift-space> {kinput_start %W over}
bind Text <Control-backslash> {kinput_start %W over}
bind Text <Control-Kanji> {kinput_start %W over}
bind Text <Control-Shift_R> {kinput_start %W over}
bind Text <Control-o> {kinput_start %W over}

bind Entry <Shift-space> {kinput_start %W}
bind Entry <Control-backslash> {kinput_start %W}
bind Entry <Control-Kanji> {kinput_start %W}
bind Entry <Control-Shift_R> {kinput_start %W}
bind Entry <Control-o> {kinput_start %W}