[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/table.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/table.el |
Date: |
Wed, 31 May 2006 08:02:45 +0000 |
Index: emacs/lisp/textmodes/table.el
diff -u emacs/lisp/textmodes/table.el:1.24 emacs/lisp/textmodes/table.el:1.25
--- emacs/lisp/textmodes/table.el:1.24 Thu Feb 2 15:12:17 2006
+++ emacs/lisp/textmodes/table.el Wed May 31 08:02:45 2006
@@ -6,7 +6,7 @@
;; Keywords: wp, convenience
;; Author: Takaaki Ota <address@hidden>
;; 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 @@
(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 @@
(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 @@
(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 @@
(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 @@
'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 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/table.el,
Kim F. Storm <=