Mercurial > hg > xemacs-beta

diff lisp/w3/w3-display.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents b980b6286996
children 5a88923fcbfe
line wrap: on
line diff
--- a/lisp/w3/w3-display.el	Mon Aug 13 09:31:13 2007 +0200
+++ b/lisp/w3/w3-display.el	Mon Aug 13 09:31:46 2007 +0200
@@ -1,7 +1,7 @@
 ;;; w3-display.el --- display engine v99999
 ;; Author: wmperry
-;; Created: 1997/04/21 21:59:42
-;; Version: 1.175
+;; Created: 1997/04/24 16:51:06
+;; Version: 1.176
 ;; Keywords: faces, help, hypermedia
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1061,6 +1061,9 @@
 	  (if (stringp cur)
 	      nil
 	    (case (car cur)
+	      ((thead tfoot col colgroup)
+	       (if (nth 2 cur)
+		   (setq content (append (nth 2 cur) content))))
 	      (tr
 	       (setq col 0)
 	       (setq rows (1+ rows))
@@ -1278,6 +1281,10 @@
 	     (setq fill-prefix ""))))
 	(while content
 	  (case (caar content)
+	    ((thead tfoot col colgroup)
+	     (if (nth 2 (car content))
+		 (setq content (append (nth 2 (car content)) (cdr content)))
+	       (setq content (cdr content))))
 	    (tr
 	     (setq w3-display-css-properties (css-get
 					      (nth 0 (car content))