Index: openacs-4/packages/xotcl-core/tcl/html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/html-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/tcl/html-procs.tcl	28 Oct 2007 13:12:41 -0000	1.2
+++ openacs-4/packages/xotcl-core/tcl/html-procs.tcl	27 Oct 2014 16:42:01 -0000	1.3
@@ -1,10 +1,10 @@
 package require tdom
 
 proc require_html_procs {} {
-  if {[info command ::html::a] eq ""} { 
+  if {[info commands ::html::a] eq ""} {
     namespace eval ::html {
 
-      # Declare Tcl commands for building HTML elements. This is an complete 
+      # Declare Tcl commands for building HTML elements. This is an complete
       # set taken from W3C on http://www.w3.org/TR/html4/index/elements.html
       #
 
@@ -86,10 +86,10 @@
       dom createNodeCmd elementNode frame
       dom createNodeCmd elementNode frameset
       dom createNodeCmd elementNode h1
-      dom createNodeCmd elementNode h2 
-      dom createNodeCmd elementNode h3 
-      dom createNodeCmd elementNode h4 
-      dom createNodeCmd elementNode h5 
+      dom createNodeCmd elementNode h2
+      dom createNodeCmd elementNode h3
+      dom createNodeCmd elementNode h4
+      dom createNodeCmd elementNode h5
       dom createNodeCmd elementNode h6
       dom createNodeCmd elementNode head
       dom createNodeCmd elementNode hr
@@ -107,18 +107,18 @@
       dom createNodeCmd elementNode link
       dom createNodeCmd elementNode map
       dom createNodeCmd elementNode menu
-      dom createNodeCmd elementNode meta 
+      dom createNodeCmd elementNode meta
       dom createNodeCmd elementNode noframes
       dom createNodeCmd elementNode noscript
-      dom createNodeCmd elementNode object 
+      dom createNodeCmd elementNode object
       dom createNodeCmd elementNode ol
       dom createNodeCmd elementNode optgroup
       dom createNodeCmd elementNode option
       dom createNodeCmd elementNode p
       dom createNodeCmd elementNode param
       dom createNodeCmd elementNode pre
       dom createNodeCmd elementNode q
-      dom createNodeCmd elementNode s 
+      dom createNodeCmd elementNode s
       dom createNodeCmd elementNode samp
       dom createNodeCmd elementNode script
       dom createNodeCmd elementNode select
@@ -143,7 +143,43 @@
       dom createNodeCmd elementNode ul
       dom createNodeCmd elementNode var
 
-
+      #
+      # HTML5 elements (http://www.w3.org/TR/html5/index.html#elements-1)
+      #
+      dom createNodeCmd elementNode article
+      dom createNodeCmd elementNode aside
+      dom createNodeCmd elementNode audio
+      dom createNodeCmd elementNode bdi
+      dom createNodeCmd elementNode canvas
+      dom createNodeCmd elementNode data
+      dom createNodeCmd elementNode datalist
+      dom createNodeCmd elementNode details
+      dom createNodeCmd elementNode dialog
+      dom createNodeCmd elementNode embed
+      dom createNodeCmd elementNode figcaption
+      dom createNodeCmd elementNode figure
+      dom createNodeCmd elementNode footer
+      dom createNodeCmd elementNode header
+      dom createNodeCmd elementNode keygen
+      dom createNodeCmd elementNode main
+      dom createNodeCmd elementNode mark
+      dom createNodeCmd elementNode meter
+      dom createNodeCmd elementNode nav
+      dom createNodeCmd elementNode output
+      dom createNodeCmd elementNode progress
+      dom createNodeCmd elementNode rb
+      dom createNodeCmd elementNode rp
+      dom createNodeCmd elementNode rt
+      dom createNodeCmd elementNode rtc
+      dom createNodeCmd elementNode ruby
+      dom createNodeCmd elementNode section
+      dom createNodeCmd elementNode source
+      dom createNodeCmd elementNode summary
+      dom createNodeCmd elementNode template
+      dom createNodeCmd elementNode time
+      dom createNodeCmd elementNode track
+      dom createNodeCmd elementNode video
+      dom createNodeCmd elementNode wbr
     }
 
     namespace eval ::tmpl {
@@ -156,4 +192,11 @@
       namespace import -force ::tmpl::*
     }
   }
-}
\ No newline at end of file
+}
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: