Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-about.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 6a378aca36af
children
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
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: 1997/01/10 00:13:05 3 ;; Created: 1997/02/18 23:36:35
4 ;; Version: 1.7 4 ;; Version: 1.8
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, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
33 (if (string= "document" node) 33 (if (string= "document" node)
34 (w3-document-information) 34 (w3-document-information)
35 (save-excursion 35 (save-excursion
36 (set-buffer (get-buffer-create url-working-buffer)) 36 (set-buffer (get-buffer-create url-working-buffer))
37 (erase-buffer) 37 (erase-buffer)
38 (setq url-current-type "about" 38 (setq url-current-mime-viewer (mm-mime-info "text/html" nil 5)
39 url-current-file node
40 url-current-mime-viewer (mm-mime-info "text/html" nil 5)
41 url-current-mime-headers '(("content-type" . "text/html"))) 39 url-current-mime-headers '(("content-type" . "text/html")))
42 (cond 40 (cond
43 ((string= "" node) 41 ((string= "" node)
44 (insert (format 42 (insert (format
45 " 43 "