diff options
Diffstat (limited to 'lisp/textmodes/table.el')
| -rw-r--r-- | lisp/textmodes/table.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el index 6c9463fe11e..dab08902769 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 |