Import Upstream version 3a1upstream/3a1

1 files changed, 18 insertions, 9 deletions

diff --git a/htmlform.txi b/htmlform.txi
index ffa0665..e960984 100644
--- a/htmlform.txi
+++ b/htmlform.txi
@@ -168,6 +168,15 @@ delimited list.  Apply map @code{form:delimited} to the list returned by
 @code{command->p-specs}.
 @end defun
 
+@defun html:delimited-list row @dots{}
+Wraps its arguments with delimited-list (@samp{DL} command.
+@end defun
+
+@defun get-foreign-choices tab
+Returns a list of the @samp{visible-name} or first fields of
+table @var{tab}.
+@end defun
+
 @defun command->p-specs rdb command-table command
 
 
@@ -190,16 +199,16 @@ command.
       (html:head 'commands)
       (html:body
        (sprintf #f "<H2>%s:</H2><BLOCKQUOTE>%s</BLOCKQUOTE>\\n"
-		(html:plain 'build)
-		(html:plain ((comtab 'get 'documentation) 'build)))
+                (html:plain 'build)
+                (html:plain ((comtab 'get 'documentation) 'build)))
        (html:form
-	'post
-	(or "http://localhost:8081/buildscm" "/cgi-bin/build.cgi")
-	(apply html:delimited-list
-	       (apply map form:delimited
-		      (command->p-specs build '*commands* 'build)))
-	(form:submit 'build)
-	(form:reset))))
+        'post
+        (or "http://localhost:8081/buildscm" "/cgi-bin/build.cgi")
+        (apply html:delimited-list
+               (apply map form:delimited
+                      (command->p-specs build '*commands* 'build)))
+        (form:submit 'build)
+        (form:reset))))
      port)))
 @end example
 @end defun