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

[w3m-dev 02810]

Browse Source 
From: Yoshinobu Sakane <sakane@d4.bsd.nes.nec.co.jp>
This commit is contained in:
Fumitoshi UKAI
2002-01-10 03:45:13 +00:00
parent d52fa78f4f
commit 3d272a74fc
3 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
scripts/Makefile
View File

@@ -39,7 +39,7 @@ w3mhelp-funcname.pl: w3mhelp-funcname.pl.in ../funcname.tab ../doc/keymap.defaul
@echo ');' >> w3mhelp-funcname.pl
@echo '%keyfunc = (' >> w3mhelp-funcname.pl
@case "$(KEYBIND_SRC)" in *lynx*) keymap=keymap.lynx;; *) keymap=keymap.default;; esac; \
while read keyword keys func rest; do \
while read -r keyword keys func rest; do \
if [ "X$$keyword" = Xkeymap ]; then \
keys=`echo "$$keys" | sed -e 's/\\\\/\\\\&/g'`; \
echo "'$$keys', '$$func',"; \

8
scripts/w3mhelp.cgi.in
View File

@@ -1,5 +1,5 @@
#!@PERL@
# $Id: w3mhelp.cgi.in,v 1.9 2001/12/25 17:29:31 ukai Exp $
# $Id: w3mhelp.cgi.in,v 1.10 2002/01/10 03:45:13 ukai Exp $
if ( $^O =~ /^(ms)?(dos|win(32|nt)?)/i ) {
$CYGPATH = 1;
@@ -187,7 +187,8 @@ sub load_keymap {
sub norm_key {
local($_) = @_;
s/^\^/C-/;
s/\\(.)/$1/g;
s/^\^(.)/C-$1/;
s/^(C-\[|M-)/ESC-/;
if (/^ESC-\[/) {
/^ESC-\[A$/ && return "UP";
@@ -197,10 +198,9 @@ sub norm_key {
s/^ESC-/\^\[/;
return $_;
}
s/^(ESC-)\^/ESC-C-/;
s/^ESC-\^(.)/ESC-C-$1/;
s/^(ESC-)?C-[iI]/${1}TAB/;
s/^(ESC-)?C-\?/${1}DEL/;
s/^\\//;
return $_;
}