storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[w3m-dev 03526] Re: fix doc*/README.func, w3mhelp.cgi.in

Browse Source 
* scripts/w3mhelp.cgi.in: (load_keymap):
		always upcase ESC,SPC,TAB,DEL,UP,DOWN,RIGHT,LEFT
From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
This commit is contained in:
Fumitoshi UKAI
2002-12-05 16:01:57 +00:00
parent 284d762709
commit 2fddcbd7ff
2 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@@ -1,3 +1,9 @@
2002-12-06 Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
* [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 <hsaka@mth.biglobe.ne.jp>
* [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 $

3
scripts/w3mhelp.cgi.in
View File

@@ -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;