Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.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 4be1180a9e89
children 360340f9fd5f
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
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/15 23:38:52 3 ;; Created: 1997/02/22 15:18:42
4 ;; Version: 1.91 4 ;; Version: 1.97
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.60")) 33 (let ((x "p3.0.62"))
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/15 23:38:52")) 41 (defconst w3-version-date (let ((x "1997/02/22 15:18:42"))
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
80 (defvar w3-default-stylesheet nil 80 (defvar w3-default-stylesheet nil
81 "*The filename of the users default stylesheet.") 81 "*The filename of the users default stylesheet.")
82 82
83 (defvar w3-display-frames nil 83 (defvar w3-display-frames nil
84 "*Fetch frames - not optimal.") 84 "*Fetch frames - not optimal.")
85
86 (defvar w3-frame-labels '("FRAME(" . ")")
87 "Strings surrounding a frame name")
88
89 (defvar w3-frame-regexp "FRAME(\\([^)]+\\))"
90 "Regexp for finding a frame hyperlink")
91
92 (defvar w3-frameset-structure nil
93 "Frameset structure")
94
95 (defvar w3-frameset-dimensions nil
96 "Frameset dimensions")
97
98 (defvar w3-frame-name nil
99 "Frame name")
100
101 (defvar w3-base-target nil
102 "Base target name")
103
104 (defvar w3-target-window-distances nil
105 "Target window distances")
85 106
86 (defvar w3-do-incremental-display nil 107 (defvar w3-do-incremental-display nil
87 "*Whether to do incremental display of pages or not.") 108 "*Whether to do incremental display of pages or not.")
88 109
89 (defvar w3-dump-to-disk nil 110 (defvar w3-dump-to-disk nil
683 widget-field-new 704 widget-field-new
684 w3-form-radio-elements 705 w3-form-radio-elements
685 w3-form-elements 706 w3-form-elements
686 url-current-callback-func 707 url-current-callback-func
687 url-current-content-length 708 url-current-content-length
688 url-current-file
689 url-current-mime-encoding 709 url-current-mime-encoding
690 url-current-mime-headers 710 url-current-mime-headers
691 url-current-mime-type 711 url-current-mime-type
692 url-current-mime-viewer 712 url-current-mime-viewer
693 url-current-port 713 url-current-object
694 url-current-referer 714 url-current-referer
695 url-current-server
696 url-current-type
697 url-current-user
698 w3-current-parse 715 w3-current-parse
699 w3-current-isindex 716 w3-current-isindex
700 w3-current-last-buffer 717 w3-current-last-buffer
701 w3-current-links 718 w3-current-links
702 w3-current-metainfo 719 w3-current-metainfo
705 w3-hidden-forms 722 w3-hidden-forms
706 w3-current-stylesheet 723 w3-current-stylesheet
707 w3-form-labels 724 w3-form-labels
708 w3-id-positions 725 w3-id-positions
709 w3-imagemaps 726 w3-imagemaps
727 w3-base-target
728 w3-target-window-distances
729 w3-frameset-structure
730 w3-frameset-dimensions
710 ) 731 )
711 "A list of variables that should be preserved when entering w3-mode.") 732 "A list of variables that should be preserved when entering w3-mode.")
712 733
713 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 734 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
714 ;;; Emulation stuff 735 ;;; Emulation stuff
733 (make-variable-buffer-local var)))) w3-persistent-variables) 754 (make-variable-buffer-local var)))) w3-persistent-variables)
734 755
735 (make-variable-buffer-local 'w3-base-alist) 756 (make-variable-buffer-local 'w3-base-alist)
736 (make-variable-buffer-local 'w3-last-tag) 757 (make-variable-buffer-local 'w3-last-tag)
737 (make-variable-buffer-local 'w3-last-fill-pos) 758 (make-variable-buffer-local 'w3-last-fill-pos)
759 (make-variable-buffer-local 'w3-frame-name)
738 (make-variable-buffer-local 'w3-active-faces) 760 (make-variable-buffer-local 'w3-active-faces)
739 (make-variable-buffer-local 'w3-netscape-emulation-minor-mode) 761 (make-variable-buffer-local 'w3-netscape-emulation-minor-mode)
740 (make-variable-buffer-local 'w3-lynx-emulation-minor-mode) 762 (make-variable-buffer-local 'w3-lynx-emulation-minor-mode)
741 (make-variable-buffer-local 'w3-last-search-item) 763 (make-variable-buffer-local 'w3-last-search-item)
742 764
812 (define-key w3-mode-map [(control alt t)] 'url-list-processes) 834 (define-key w3-mode-map [(control alt t)] 'url-list-processes)
813 (define-key w3-mode-map [(control meta t)] 'url-list-processes) 835 (define-key w3-mode-map [(control meta t)] 'url-list-processes)
814 836
815 ;; Widget navigation 837 ;; Widget navigation
816 (define-key w3-mode-map [tab] 'w3-widget-forward) 838 (define-key w3-mode-map [tab] 'w3-widget-forward)
839 (define-key w3-mode-map "\t" 'w3-widget-forward)
817 (define-key w3-mode-map "\M-\t" 'w3-widget-backward) 840 (define-key w3-mode-map "\M-\t" 'w3-widget-backward)
818 (define-key w3-mode-map [backtab] 'w3-widget-backward) 841 (define-key w3-mode-map [backtab] 'w3-widget-backward)
819 (define-key w3-mode-map [(shift tab)] 'w3-widget-backward) 842 (define-key w3-mode-map [(shift tab)] 'w3-widget-backward)
820 (define-key w3-mode-map [(meta tab)] 'w3-widget-backward) 843 (define-key w3-mode-map [(meta tab)] 'w3-widget-backward)
821 844