From 2fddcbd7ffccc20d431f66dacbf5a7b1bd0823e7 Mon Sep 17 00:00:00 2001
From: Fumitoshi UKAI <ukai@debian.or.jp>
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
 <hsaka@mth.biglobe.ne.jp>

---
 scripts/w3mhelp.cgi.in | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scripts')

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