Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-annotat.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 9ee227acff29
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
1 ;;; w3-annotat.el,v --- Annotation functions for Emacs-W3 1 ;;; w3-annotat.el --- Annotation functions for Emacs-W3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1996/06/06 14:14:34 3 ;; Created: 1996/06/30 18:02:56
4 ;; Version: 1.3 4 ;; Version: 1.3
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, 1994, 1995 by William M. Perry (wmperry@spry.com) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; 9 ;;;
10 ;;; This file is not part of GNU Emacs, but the same permissions apply. 10 ;;; This file is not part of GNU Emacs, but the same permissions apply.
11 ;;; 11 ;;;
12 ;;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;;; 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 13 ;;; it under the terms of the GNU General Public License as published by
175 (funcall default-major-mode)) 175 (funcall default-major-mode))
176 (w3-annotation-minor-mode 1) 176 (w3-annotation-minor-mode 1)
177 (setq w3-current-annotation (cons url title)) 177 (setq w3-current-annotation (cons url title))
178 (insert "<html>\n" 178 (insert "<html>\n"
179 " <head>\n" 179 " <head>\n"
180 " <title>" (w3-insert-entities-in-string title) "</title>" 180 " <title>" (url-insert-entities-in-string title) "</title>"
181 " </head>\n" 181 " </head>\n"
182 " <h1>" (w3-insert-entities-in-string title) "</h1>\n" 182 " <h1>" (url-insert-entities-in-string title) "</h1>\n"
183 " <p>\n" 183 " <p>\n"
184 " <address>" (w3-insert-entities-in-string (user-full-name)) 184 " <address>" (url-insert-entities-in-string (user-full-name))
185 (if (stringp url-personal-mail-address) 185 (if (stringp url-personal-mail-address)
186 (concat " &lt;" (w3-insert-entities-in-string 186 (concat " &lt;" (url-insert-entities-in-string
187 url-personal-mail-address) "&gt;") 187 url-personal-mail-address) "&gt;")
188 "") 188 "")
189 "</address>\n" 189 "</address>\n"
190 " <address>" (current-time-string) "</address>\n" 190 " <address>" (current-time-string) "</address>\n"
191 " </p>\n" 191 " </p>\n"