Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
1 ;;; w3-display.el --- display engine v99999 1 ;;; w3-display.el --- display engine v99999
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/21 21:59:42 3 ;; Created: 1997/04/24 16:51:06
4 ;; Version: 1.175 4 ;; Version: 1.176
5 ;; Keywords: faces, help, hypermedia 5 ;; Keywords: faces, help, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
1059 (while content 1059 (while content
1060 (setq cur (pop content)) 1060 (setq cur (pop content))
1061 (if (stringp cur) 1061 (if (stringp cur)
1062 nil 1062 nil
1063 (case (car cur) 1063 (case (car cur)
1064 ((thead tfoot col colgroup)
1065 (if (nth 2 cur)
1066 (setq content (append (nth 2 cur) content))))
1064 (tr 1067 (tr
1065 (setq col 0) 1068 (setq col 0)
1066 (setq rows (1+ rows)) 1069 (setq rows (1+ rows))
1067 (setq ptr table-spans) 1070 (setq ptr table-spans)
1068 (mapcar 1071 (mapcar
1276 (max 0 (- fill-column table-width)))) 1279 (max 0 (- fill-column table-width))))
1277 (t 1280 (t
1278 (setq fill-prefix "")))) 1281 (setq fill-prefix ""))))
1279 (while content 1282 (while content
1280 (case (caar content) 1283 (case (caar content)
1284 ((thead tfoot col colgroup)
1285 (if (nth 2 (car content))
1286 (setq content (append (nth 2 (car content)) (cdr content)))
1287 (setq content (cdr content))))
1281 (tr 1288 (tr
1282 (setq w3-display-css-properties (css-get 1289 (setq w3-display-css-properties (css-get
1283 (nth 0 (car content)) 1290 (nth 0 (car content))
1284 (nth 1 (car content)) 1291 (nth 1 (car content))
1285 w3-current-stylesheet 1292 w3-current-stylesheet