From: Kim F. Storm <storm@cua.dk>
Date: Wed, 31 May 2006 08:02:45 +0000 (+0000)
Subject: 2006-05-31  Takaaki Ota  <Takaaki.Ota@am.sony.com>
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/e66ca63c21de456d9f5458a1f06897402ddac3f0

2006-05-31  Takaaki Ota  <Takaaki.Ota@am.sony.com>
Convert all HTML tags to lower case for XHTML compatibility.
---

diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index 6c9463fe11..dab0890276 100644
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -6,7 +6,7 @@
 ;; Keywords: wp, convenience
 ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com>
 ;; Created: Sat Jul 08 2000 13:28:45 (PST)
-;; Revised: Sat Aug 06 2005 19:42:54 (CEST)
+;; Revised: Tue May 30 2006 10:01:43 (PDT)
 
 ;; This file is part of GNU Emacs.
 
@@ -3104,10 +3104,10 @@ CALS (DocBook DTD):
     (cond
      ((eq language 'html)
       (insert (format "<!-- This HTML table template is generated by emacs %s -->\n" emacs-version)
-	      (format "<TABLE %s>\n" table-html-table-attribute)
+	      (format "<table %s>\n" table-html-table-attribute)
 	      (if (and (stringp caption)
 		       (not (string= caption "")))
-		  (format "  <CAPTION>%s</CAPTION>\n" caption)
+		  (format "  <caption>%s</caption>\n" caption)
 		"")))
      ((eq language 'latex)
       (insert (format "%% This LaTeX table template is generated by emacs %s\n" emacs-version)
@@ -3131,7 +3131,7 @@ CALS (DocBook DTD):
   (with-current-buffer dest-buffer
     (cond
      ((eq language 'html)
-      (insert "</TABLE>\n"))
+      (insert "</table>\n"))
      ((eq language 'latex)
       (insert "\\end{tabular}\n"))
      ((eq language 'cals)
@@ -3152,7 +3152,7 @@ CALS (DocBook DTD):
     (with-current-buffer dest-buffer
       (cond
        ((eq language 'html)
-	(insert "  <TR>\n"))
+	(insert "  <tr>\n"))
        ((eq language 'cals)
 	(insert "      <row>\n"))
        ))
@@ -3160,7 +3160,7 @@ CALS (DocBook DTD):
     (with-current-buffer dest-buffer
       (cond
        ((eq language 'html)
-	(insert "  </TR>\n"))
+	(insert "  </tr>\n"))
        ((eq language 'cals)
 	(insert "      </row>\n")
 	(unless (/= (table-get-source-info 'current-row) table-cals-thead-rows)
@@ -3207,7 +3207,7 @@ CALS (DocBook DTD):
 			       'cell-type
 			       (if (or (<= (table-get-source-info 'current-row) table-html-th-rows)
 				       (<= (table-get-source-info 'current-column) table-html-th-columns))
-				   "TH" "TD"))))
+				   "th" "td"))))
 	      (if (and table-html-cell-attribute (not (string= table-html-cell-attribute "")))
 		  (insert " " table-html-cell-attribute))
 	      (if (> colspan 1) (insert (format " colspan=\"%d\"" colspan)))
@@ -3266,7 +3266,7 @@ CALS (DocBook DTD):
 	  (goto-char (point-min))
 	  (while (and (re-search-forward "$" nil t)
 		      (not (eobp)))
-	    (insert "<BR />")
+	    (insert "<br />")
 	    (forward-char 1)))
 	(unless (and table-html-delegate-spacing-to-user-agent
 		     (progn