picolisp

commit f810db943d55f3e15eefbaba0ea74d5b2b5268ef
parent a40b085907c4c25147b9f00234952ac246d795d9
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri,  3 May 2013 12:55:33 +0200

Clear global *JS in <noscript>
Diffstat:
M
ersatz/picolisp.jar
 | 
0

M
lib/xhtml.l
 | 
5
+++--
M
src/vers.h
 | 
2
+-
M
src64/version.l
 | 
4
++--

4 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/lib/xhtml.l b/lib/xhtml.l
@@ -1,9 +1,9 @@
-# 15mar13abu
+# 03may13abu
 # (c) Software Lab. Alexander Burger
 
 # *JS "*JS" *Style *Menu *Tab *ID
 
-(mapc allow '(*Menu *Tab *ID))
+(mapc allow '(*JS *Menu *Tab *ID))
 (setq *Menu 0  *Tab 1)
 (off "*JS")
 
@@ -571,6 +571,7 @@
       (sesId Url)
       (and *JS "\" onkeydown=\"return formKey(event)\" onkeypress=\"return formKey(event)\" onsubmit=\"return doPost(this)")
       "\" method=\"post\">" )
+   (prin "<noscript><input type=\"hidden\" name=\"*JS\" value=\"\"/></noscript>")
    (tag 'fieldset Attr 2 Prg)
    (prinl "</form>") )
 
diff --git a/src/vers.h b/src/vers.h
@@ -1 +1 @@
-static byte Version[4] = {3,1,2,4};
+static byte Version[4] = {3,1,2,5};
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 25apr13abu
+# 03may13abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 1 2 4)
+(de *Version 3 1 2 5)
 
 # vi:et:ts=3:sw=3