# . i n p u t r c 						-*- tcl -*- 
# 
#
#           Author: Erick Gallesio [eg@unice.fr]
#    Creation date: 14-Oct-1999 17:23 (eg)
# Last file update: 19-Oct-1999 08:31 (eg)

set input-meta on
set output-meta on
set convert-meta off
set meta-flag on

# Settings  Control-arrows for rxvt 
"\eOc":    forward-word
"\eOd":    backward-word

# Useful binding
"\C-xd": dump-functions


# Settings for STk
$if stk
"\C-xh": "(help)\C-m"
"\C-xl": "(system \"ls -ls\")\C-m"
"\C-xp": "(getcwd)\C-m"
$endif

# Settings for ftp 
$if ftp
"\C-xh": "help\C-m"
"\C-xl": "dir\C-m"
"\C-xp": "pwd\C-m"
$endif

# Settings for ed
$if ed
"\C-xl": "!ls -ls\C-m"
"\C-xp": "!pwd\C-m"
$endif