Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents 6608ceec7cf8
children 5a88923fcbfe
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
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/04/24 20:22:16 3 ;; Created: 1997/05/09 06:21:55
4 ;; Version: 1.127 4 ;; Version: 1.129
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.
31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
32 32
33 (require 'w3-cus) ; Grab everything that is customized 33 (require 'w3-cus) ; Grab everything that is customized
34 34
35 (defconst w3-version-number 35 (defconst w3-version-number
36 (let ((x "p3.0.85")) 36 (let ((x "p3.0.86"))
37 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 37 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
38 (setq x (substring x (match-beginning 1) (match-end 1))) 38 (setq x (substring x (match-beginning 1) (match-end 1)))
39 (setq x (substring x 1))) 39 (setq x (substring x 1)))
40 (mapconcat 40 (mapconcat
41 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 41 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))
42 "Version # of w3-mode.") 42 "Version # of w3-mode.")
43 43
44 (defconst w3-version-date (let ((x "1997/04/24 20:22:16")) 44 (defconst w3-version-date (let ((x "1997/05/09 06:21:55"))
45 (if (string-match "Date: \\([^ \t\n]+\\)" x) 45 (if (string-match "Date: \\([^ \t\n]+\\)" x)
46 (substring x (match-beginning 1) (match-end 1)) 46 (substring x (match-beginning 1) (match-end 1))
47 x)) 47 x))
48 "Date this version of w3-mode was released.") 48 "Date this version of w3-mode was released.")
49 49
526 (define-key w3-mode-map " " 'w3-scroll-up) 526 (define-key w3-mode-map " " 'w3-scroll-up)
527 (define-key w3-mode-map "<" 'beginning-of-buffer) 527 (define-key w3-mode-map "<" 'beginning-of-buffer)
528 (define-key w3-mode-map ">" 'end-of-buffer) 528 (define-key w3-mode-map ">" 'end-of-buffer)
529 (define-key w3-mode-map "?" 'w3-help) 529 (define-key w3-mode-map "?" 'w3-help)
530 (define-key w3-mode-map "B" 'w3-history-backward) 530 (define-key w3-mode-map "B" 'w3-history-backward)
531 (define-key w3-mode-map "D" 'w3-download-url-at-point)
531 (define-key w3-mode-map "F" 'w3-history-forward) 532 (define-key w3-mode-map "F" 'w3-history-forward)
532 (define-key w3-mode-map "G" 'w3-show-graphics) 533 (define-key w3-mode-map "G" 'w3-show-graphics)
533 (define-key w3-mode-map "I" 'w3-popup-info) 534 (define-key w3-mode-map "I" 'w3-popup-info)
534 (define-key w3-mode-map "K" 'w3-save-this-url) 535 (define-key w3-mode-map "K" 'w3-save-this-url)
535 (define-key w3-mode-map "P" 'w3-print-url-under-point) 536 (define-key w3-mode-map "P" 'w3-print-url-under-point)
548 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image) 549 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image)
549 (define-key w3-mode-map "\r" 'w3-widget-button-press) 550 (define-key w3-mode-map "\r" 'w3-widget-button-press)
550 (define-key w3-mode-map "\n" 'w3-widget-button-press) 551 (define-key w3-mode-map "\n" 'w3-widget-button-press)
551 (define-key w3-mode-map "b" 'w3-widget-backward) 552 (define-key w3-mode-map "b" 'w3-widget-backward)
552 (define-key w3-mode-map "c" 'w3-mail-document-author) 553 (define-key w3-mode-map "c" 'w3-mail-document-author)
554 (define-key w3-mode-map "d" 'w3-download-this-url)
553 (define-key w3-mode-map "f" 'w3-widget-forward) 555 (define-key w3-mode-map "f" 'w3-widget-forward)
554 (define-key w3-mode-map "g" 'w3-reload-document) 556 (define-key w3-mode-map "g" 'w3-reload-document)
555 (define-key w3-mode-map "i" 'w3-document-information) 557 (define-key w3-mode-map "i" 'w3-document-information)
556 (define-key w3-mode-map "k" 'w3-save-url) 558 (define-key w3-mode-map "k" 'w3-save-url)
557 (define-key w3-mode-map "l" 'w3-goto-last-buffer) 559 (define-key w3-mode-map "l" 'w3-goto-last-buffer)