From 2fddcbd7ffccc20d431f66dacbf5a7b1bd0823e7 Mon Sep 17 00:00:00 2001 From: Fumitoshi UKAI Date: Thu, 5 Dec 2002 16:01:57 +0000 Subject: [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 --- ChangeLog | 8 +++++++- scripts/w3mhelp.cgi.in | 3 ++- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index fa4ffa2..216a9fd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2002-12-06 Hironori SAKAMOTO + + * [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 + 2002-12-05 Hironori SAKAMOTO * [w3m-dev 03525] Re: sync option @@ -5454,4 +5460,4 @@ a * [w3m-dev 03276] compile error on EWS4800 * release-0-2-1 * import w3m-0.2.1 -$Id: ChangeLog,v 1.589 2002/12/04 17:15:35 ukai Exp $ +$Id: ChangeLog,v 1.590 2002/12/05 16:01:57 ukai Exp $ 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; -- cgit v1.2.3