picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 9c696a4e777cf9d4b0a27bec9ecc20ea8c3fe8cb
parent 2f98e4d0bea31dbf846612f7f5ccee60ad40dd26
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 28 Nov 2011 09:04:52 +0100

Minor fixes
Diffstat:
Mlib/form.js | 10+++++-----
Mlib/xhtml.l | 4++--
2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/lib/form.js b/lib/form.js @@ -1,4 +1,4 @@ -/* 26nov11abu +/* 28nov11abu * (c) Software Lab. Alexander Burger */ @@ -312,10 +312,10 @@ function doHint(field) { function hintKey(field, event, tok, coy) { var i, data; - if (event.keyCode == 9 || event.keyCode == 27) - return false; if (!HintReq) return true; + if (event.keyCode == 9 || event.keyCode == 27) + return false; if (HintReq.readyState > 0 && HintReq.readyState < 4) return false; if (tok) { @@ -328,7 +328,7 @@ function hintKey(field, event, tok, coy) { } if ((coy || Beg == End) && event.keyCode != 45) { // INS Hint.style.visibility = "hidden"; - return true; + return false; } try { HintReq.open("POST", @@ -370,7 +370,7 @@ function hintKey(field, event, tok, coy) { } try {HintReq.send(data);} catch (e) {HintReq.abort();} - return true; + return (event.keyCode != 45); // INS } function addHint(field, str) { diff --git a/lib/xhtml.l b/lib/xhtml.l @@ -1,4 +1,4 @@ -# 26nov11abu +# 28nov11abu # (c) Software Lab. Alexander Burger # *JS "*JS" *Style *Menu *Tab *ID @@ -521,7 +521,7 @@ (prin "<form enctype=\"multipart/form-data\" action=\"" (sesId Url) - (and *JS "\" onkeydown=\"formKey(event)\" onsubmit=\"return doPost(this)") + (and *JS "\" onkeydown=\"return formKey(event)\" onsubmit=\"return doPost(this)") "\" method=\"post\">" ) (tag 'fieldset Attr 2 Prg) (prinl "</form>") )