Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-about.el @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents 131b0175ea99
children 6a378aca36af
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
1 ;;; w3-about.el --- About pages for emacs-w3 1 ;;; w3-about.el --- About pages for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1996/06/30 18:02:26 3 ;; Created: 1996/12/16 16:44:46
4 ;; Version: 1.3 4 ;; Version: 1.6
5 ;; Keywords: hypermedia 5 ;; Keywords: 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 Free Software Foundation, Inc.
9 ;;; 10 ;;;
10 ;;; This file is not part of GNU Emacs, but the same permissions apply. 11 ;;; This file is part of GNU Emacs.
11 ;;; 12 ;;;
12 ;;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;;; it under the terms of the GNU General Public License as published by 14 ;;; it under the terms of the GNU General Public License as published by
14 ;;; the Free Software Foundation; either version 2, or (at your option) 15 ;;; the Free Software Foundation; either version 2, or (at your option)
15 ;;; any later version. 16 ;;; any later version.
18 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 19 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;;; GNU General Public License for more details. 21 ;;; GNU General Public License for more details.
21 ;;; 22 ;;;
22 ;;; You should have received a copy of the GNU General Public License 23 ;;; You should have received a copy of the GNU General Public License
23 ;;; along with GNU Emacs; see the file COPYING. If not, write to 24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;;; Boston, MA 02111-1307, USA.
25 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
26 28
27 (defun w3-about (url) 29 (defun w3-about (url)
28 ;; Fetch an about page url 30 ;; Fetch an about page url
29 (let* ((data (url-generic-parse-url url)) 31 (let* ((data (url-generic-parse-url url))
76 " 78 "
77 w3-version-number w3-version-number w3-bug-address w3-bug-address))) 79 w3-version-number w3-version-number w3-bug-address w3-bug-address)))
78 ((string= "style" node) 80 ((string= "style" node)
79 (insert 81 (insert
80 " 82 "
81 -- This is the stylesheet for the about pages for Emacs-w3 -- 83 /* This is the stylesheet for the about pages for Emacs-w3 */
82 84
83 address,h1,h2,h3,h4,h5,h6 { align:\"center\" } 85 address,h1,h2,h3,h4,h5,h6 { text-align: center }
84 wired { color:yellow } 86 wired { color: yellow }
85 wired { background:red } 87 wired { background: red }
86 ")) 88 "))
87 ((string= "license" node) 89 ((string= "license" node)
88 (kill-buffer (current-buffer)) 90 (kill-buffer (current-buffer))
89 (describe-copying)) 91 (describe-copying))
90 ((string= "warranty" node) 92 ((string= "warranty" node)