picolisp

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

Minor fixes
Diffstat:
M
lib/form.js
 | 
10
+++++-----
M
lib/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>") )