Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents a145efe76779
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
1 ;;; w3-vars.el,v --- All variable definitions for emacs-w3 1 ;;; w3-vars.el,v --- All variable definitions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/22 15:18:42 3 ;; Created: 1997/03/07 16:46:48
4 ;; Version: 1.97 4 ;; Version: 1.102
5 ;; Keywords: comm, help, hypermedia 5 ;; Keywords: comm, help, 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.
28 28
29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30 ;;; Variable definitions for w3 30 ;;; Variable definitions for w3
31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
32 (defconst w3-version-number 32 (defconst w3-version-number
33 (let ((x "p3.0.62")) 33 (let ((x "p3.0.65"))
34 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 34 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
35 (setq x (substring x (match-beginning 1) (match-end 1))) 35 (setq x (substring x (match-beginning 1) (match-end 1)))
36 (setq x (substring x 1))) 36 (setq x (substring x 1)))
37 (mapconcat 37 (mapconcat
38 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 38 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))
39 "Version # of w3-mode.") 39 "Version # of w3-mode.")
40 40
41 (defconst w3-version-date (let ((x "1997/02/22 15:18:42")) 41 (defconst w3-version-date (let ((x "1997/03/07 16:46:48"))
42 (if (string-match "Date: \\([^ \t\n]+\\)" x) 42 (if (string-match "Date: \\([^ \t\n]+\\)" x)
43 (substring x (match-beginning 1) (match-end 1)) 43 (substring x (match-beginning 1) (match-end 1))
44 x)) 44 x))
45 "Date this version of w3-mode was released.") 45 "Date this version of w3-mode was released.")
46 46
272 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 272 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
273 ;;; Hook Variables 273 ;;; Hook Variables
274 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 274 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
275 (defvar w3-load-hook nil "*Hooks to be run after loading w3.") 275 (defvar w3-load-hook nil "*Hooks to be run after loading w3.")
276 (defvar w3-mode-hook nil "*Hooks to be run after entering w3-mode.") 276 (defvar w3-mode-hook nil "*Hooks to be run after entering w3-mode.")
277 (defvar w3-file-prepare-hook nil
278 "*Hooks to be run before preparing a buffer.")
279 (defvar w3-file-done-hook nil "*Hooks to be run after preparing a buffer.")
280 (defvar w3-source-file-hook nil 277 (defvar w3-source-file-hook nil
281 "*Hooks to be run after getting document source.") 278 "*Hooks to be run after getting document source.")
282 279
283 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 280 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
284 ;;; Figure out what flavor of emacs we are running 281 ;;; Figure out what flavor of emacs we are running
806 (define-key w3-mode-map "\C-c\C-b" 'w3-show-history-list) 803 (define-key w3-mode-map "\C-c\C-b" 'w3-show-history-list)
807 (define-key w3-mode-map "\C-c\C-v" 'w3-version) 804 (define-key w3-mode-map "\C-c\C-v" 'w3-version)
808 (define-key w3-mode-map "\C-o" 'w3-fetch) 805 (define-key w3-mode-map "\C-o" 'w3-fetch)
809 (define-key w3-mode-map "\M-M" 'w3-mail-document-under-point) 806 (define-key w3-mode-map "\M-M" 'w3-mail-document-under-point)
810 (define-key w3-mode-map "\M-m" 'w3-mail-current-document) 807 (define-key w3-mode-map "\M-m" 'w3-mail-current-document)
811 (define-key w3-mode-map "\M-s" 'w3-search) 808 (define-key w3-mode-map "\M-s" 'w3-save-as)
812 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image) 809 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image)
813 (define-key w3-mode-map "\r" 'w3-widget-button-press) 810 (define-key w3-mode-map "\r" 'w3-widget-button-press)
814 (define-key w3-mode-map "\n" 'w3-widget-button-press) 811 (define-key w3-mode-map "\n" 'w3-widget-button-press)
815 (define-key w3-mode-map "b" 'w3-widget-backward) 812 (define-key w3-mode-map "b" 'w3-widget-backward)
816 (define-key w3-mode-map "c" 'w3-mail-document-author) 813 (define-key w3-mode-map "c" 'w3-mail-document-author)