Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 318232e2a3f0
children 15872534500d
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
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/05/09 06:21:55 3 ;; Created: 1997/06/25 15:58:53
4 ;; Version: 1.129 4 ;; Version: 1.143
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.
29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30 ;;; Variable definitions for w3 30 ;;; Variable definitions for w3
31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
32 32
33 (require 'w3-cus) ; Grab everything that is customized 33 (require 'w3-cus) ; Grab everything that is customized
34 (require 'wid-edit) ; For `widget-keymap'
34 35
35 (defconst w3-version-number 36 (defconst w3-version-number
36 (let ((x "p3.0.86")) 37 (let ((x "p3.0.92"))
37 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 38 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
38 (setq x (substring x (match-beginning 1) (match-end 1))) 39 (setq x (substring x (match-beginning 1) (match-end 1)))
39 (setq x (substring x 1))) 40 (setq x (substring x 1)))
40 (mapconcat 41 (mapconcat
41 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 42 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))
42 "Version # of w3-mode.") 43 "Version # of w3-mode.")
43 44
44 (defconst w3-version-date (let ((x "1997/05/09 06:21:55")) 45 (defconst w3-version-date (let ((x "1997/06/25 15:58:53"))
45 (if (string-match "Date: \\([^ \t\n]+\\)" x) 46 (if (string-match "Date: \\([^ \t\n]+\\)" x)
46 (substring x (match-beginning 1) (match-end 1)) 47 (substring x (match-beginning 1) (match-end 1))
47 x)) 48 x))
48 "Date this version of w3-mode was released.") 49 "Date this version of w3-mode was released.")
49 50
74 75
75 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 76 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
76 ;;; Figure out what flavor of emacs we are running 77 ;;; Figure out what flavor of emacs we are running
77 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 78 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
78 (defvar w3-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) 79 (defvar w3-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)
79 "*In XEmacs?.") 80 "*Got XEmacs?.")
80 81
81 (defvar w3-running-FSF19 (and (string-match "^19" emacs-version) 82 (defvar w3-running-FSF19 (and (string-match "^19" emacs-version)
82 (not w3-running-xemacs)) 83 (not w3-running-xemacs))
83 "*In FSF v19 emacs?") 84 "*Got Emacs 19?")
84 85
85 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 86 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
86 ;; Store the database of HTML general entities. 87 ;; Store the database of HTML general entities.
87 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 88 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
88 (defvar w3-html-entities 89 (defvar w3-html-entities
500 501
501 502
502 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 503 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
503 ;;; Keymap definitions 504 ;;; Keymap definitions
504 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 505 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
505 (defvar w3-mode-map (make-keymap) "Keymap to use in w3-mode.") 506 (defvar w3-mode-map (make-sparse-keymap) "Keymap to use in w3-mode.")
506 (suppress-keymap w3-mode-map) 507 (suppress-keymap w3-mode-map)
508 (set-keymap-parent w3-mode-map widget-keymap)
507 509
508 (define-key w3-mode-map "h" (make-sparse-keymap)) 510 (define-key w3-mode-map "h" (make-sparse-keymap))
509 (define-key w3-mode-map "H" (make-sparse-keymap)) 511 (define-key w3-mode-map "H" (make-sparse-keymap))
510 (define-key w3-mode-map "a" (make-sparse-keymap)) 512 (define-key w3-mode-map "a" (make-sparse-keymap))
511 513
545 (define-key w3-mode-map "\C-o" 'w3-fetch) 547 (define-key w3-mode-map "\C-o" 'w3-fetch)
546 (define-key w3-mode-map "\M-M" 'w3-mail-document-under-point) 548 (define-key w3-mode-map "\M-M" 'w3-mail-document-under-point)
547 (define-key w3-mode-map "\M-m" 'w3-mail-current-document) 549 (define-key w3-mode-map "\M-m" 'w3-mail-current-document)
548 (define-key w3-mode-map "\M-s" 'w3-save-as) 550 (define-key w3-mode-map "\M-s" 'w3-save-as)
549 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image) 551 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image)
550 (define-key w3-mode-map "\r" 'w3-widget-button-press)
551 (define-key w3-mode-map "\n" 'w3-widget-button-press)
552 (define-key w3-mode-map "b" 'w3-widget-backward) 552 (define-key w3-mode-map "b" 'w3-widget-backward)
553 (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) 554 (define-key w3-mode-map "d" 'w3-download-this-url)
555 (define-key w3-mode-map "f" 'w3-widget-forward) 555 (define-key w3-mode-map "f" 'w3-widget-forward)
556 (define-key w3-mode-map "g" 'w3-reload-document) 556 (define-key w3-mode-map "g" 'w3-reload-document)
571 ;; Emulate some netscape stuff by default 571 ;; Emulate some netscape stuff by default
572 (define-key w3-mode-map [(control alt t)] 'url-list-processes) 572 (define-key w3-mode-map [(control alt t)] 'url-list-processes)
573 (define-key w3-mode-map [(control meta t)] 'url-list-processes) 573 (define-key w3-mode-map [(control meta t)] 'url-list-processes)
574 574
575 ;; Widget navigation 575 ;; Widget navigation
576 (define-key w3-mode-map [tab] 'w3-widget-forward) 576 (if t
577 (define-key w3-mode-map "\t" 'w3-widget-forward) 577 nil
578 (define-key w3-mode-map "\M-\t" 'w3-widget-backward) 578 (define-key w3-mode-map "\r" 'w3-widget-button-press)
579 (define-key w3-mode-map [backtab] 'w3-widget-backward) 579 (define-key w3-mode-map "\n" 'w3-widget-button-press)
580 (define-key w3-mode-map [(shift tab)] 'w3-widget-backward) 580 (define-key w3-mode-map [tab] 'w3-widget-forward)
581 (define-key w3-mode-map [(meta tab)] 'w3-widget-backward) 581 (define-key w3-mode-map "\t" 'w3-widget-forward)
582 582 (define-key w3-mode-map "\M-\t" 'w3-widget-backward)
583 (define-key w3-mode-map [backtab] 'w3-widget-backward)
584 (define-key w3-mode-map [(shift tab)] 'w3-widget-backward)
585 (define-key w3-mode-map [(meta tab)] 'w3-widget-backward)
586 )
583 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 587 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
584 ;;; Keyword definitions 588 ;;; Keyword definitions
585 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 589 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
586 (require 'w3-keyword) 590 (require 'w3-keyword)
587 (provide 'w3-vars) 591 (provide 'w3-vars)