Mercurial > hg > xemacs-beta

comparison lisp/w3/w3.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 3d6bfa290dbd
children
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
1 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions 1 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/07/14 16:57:04 3 ;; Created: 1997/08/25 14:55:29
4 ;; Version: 1.140 4 ;; Version: 1.141
5 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia 5 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993 - 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.
668 info) 668 info)
669 '>))) 669 '>)))
670 (fmtstring (format " <tr><td>%%%ds:</td><td>%%s</td></tr>" maxlength))) 670 (fmtstring (format " <tr><td>%%%ds:</td><td>%%s</td></tr>" maxlength)))
671 (insert " <tr><th colspan=2>Miscellaneous Variables</th></tr>\n") 671 (insert " <tr><th colspan=2>Miscellaneous Variables</th></tr>\n")
672 (while info 672 (while info
673 (insert (format fmtstring 673 (if (and (caar info) (cdar info))
674 (url-insert-entities-in-string 674 (insert (format fmtstring
675 (capitalize (caar info))) 675 (url-insert-entities-in-string
676 (url-insert-entities-in-string 676 (capitalize (caar info)))
677 (cdar info))) "\n") 677 (url-insert-entities-in-string
678 (cdar info))) "\n"))
678 (setq info (cdr info)) 679 (setq info (cdr info))
679 ) 680 )
680 ) 681 )
681 ) 682 )
682 (insert " </table>\n" 683 (insert " </table>\n"