diff options
| author | Fumitoshi UKAI <ukai@debian.or.jp> | 2002-12-05 16:01:57 +0000 |
|---|---|---|
| committer | Fumitoshi UKAI <ukai@debian.or.jp> | 2002-12-05 16:01:57 +0000 |
| commit | 2fddcbd7ffccc20d431f66dacbf5a7b1bd0823e7 (patch) | |
| tree | 0fd9e663e682de00063bf2284d61f2a9aa28021a /scripts/w3mhelp.cgi.in | |
| parent | [w3m-dev 03525] Re: sync option (diff) | |
| download | w3m-2fddcbd7ffccc20d431f66dacbf5a7b1bd0823e7.tar.gz w3m-2fddcbd7ffccc20d431f66dacbf5a7b1bd0823e7.zip | |
[w3m-dev 03526] Re: fix doc*/README.func, w3mhelp.cgi.in
* scripts/w3mhelp.cgi.in: (load_keymap):
always upcase ESC,SPC,TAB,DEL,UP,DOWN,RIGHT,LEFT
From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
Diffstat (limited to 'scripts/w3mhelp.cgi.in')
| -rw-r--r-- | scripts/w3mhelp.cgi.in | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/w3mhelp.cgi.in b/scripts/w3mhelp.cgi.in index dda75a1..36d4915 100644 --- a/scripts/w3mhelp.cgi.in +++ b/scripts/w3mhelp.cgi.in @@ -1,5 +1,5 @@ #!@PERL@ -# $Id: w3mhelp.cgi.in,v 1.18 2002/12/04 17:08:28 ukai Exp $ +# $Id: w3mhelp.cgi.in,v 1.19 2002/12/05 16:02:00 ukai Exp $ if ( $^O =~ /^(ms)?(dos|win(32|nt)?)/i ) { $CYGPATH = 1; @@ -208,6 +208,7 @@ sub load_keymap { sub norm_key { local($_) = @_; + s/(ESC|SPC|TAB|DEL|UP|DOWN|RIGHT|LEFT)/\U$1/i; s/\\(.)/$1/g; s/(^|\s+|-)\^(.)/${1}C-$2/g; s/(^|\s+|-)(C-\[|M-)/${1}ESC-/g; |