Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 15872534500d
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
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/07/02 17:41:53 3 ;; Created: 1997/07/12 04:58:34
4 ;; Version: 1.145 4 ;; Version: 1.149
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.
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 (require 'wid-edit) ; For `widget-keymap'
35 35
36 (defconst w3-version-number 36 (defconst w3-version-number
37 (let ((x "p3.0.93")) 37 (let ((x "p3.0.94"))
38 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 38 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
39 (setq x (substring x (match-beginning 1) (match-end 1))) 39 (setq x (substring x (match-beginning 1) (match-end 1)))
40 (setq x (substring x 1))) 40 (setq x (substring x 1)))
41 (mapconcat 41 (mapconcat
42 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 42 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))
43 "Version # of w3-mode.") 43 "Version # of w3-mode.")
44 44
45 (defconst w3-version-date (let ((x "1997/07/02 17:41:53")) 45 (defconst w3-version-date (let ((x "1997/07/12 04:58:34"))
46 (if (string-match "Date: \\([^ \t\n]+\\)" x) 46 (if (string-match "Date: \\([^ \t\n]+\\)" x)
47 (substring x (match-beginning 1) (match-end 1)) 47 (substring x (match-beginning 1) (match-end 1))
48 x)) 48 x))
49 "Date this version of w3-mode was released.") 49 "Date this version of w3-mode was released.")
50 50
403 (defvar w3-current-last-buffer nil "Last W3 buffer seen before this one.") 403 (defvar w3-current-last-buffer nil "Last W3 buffer seen before this one.")
404 (defvar w3-current-links nil "An assoc list of <link> tags for this doc.") 404 (defvar w3-current-links nil "An assoc list of <link> tags for this doc.")
405 (defvar w3-current-metainfo nil "An assoc list of <meta> tags for this doc.") 405 (defvar w3-current-metainfo nil "An assoc list of <meta> tags for this doc.")
406 (defvar w3-current-source nil "Source of current document.") 406 (defvar w3-current-source nil "Source of current document.")
407 (defvar w3-current-parse nil "Parsed version of current document.") 407 (defvar w3-current-parse nil "Parsed version of current document.")
408 (defvar w3-current-badhtml nil "List of HTML warnings for this page.")
408 (defconst w3-default-continuation '(url-uncompress) 409 (defconst w3-default-continuation '(url-uncompress)
409 "Default action to start with - cleans text and uncompresses if necessary.") 410 "Default action to start with - cleans text and uncompresses if necessary.")
410 (defvar w3-find-this-link nil "Link to go to within a document.") 411 (defvar w3-find-this-link nil "Link to go to within a document.")
411 (defvar w3-hidden-forms nil "List of hidden form areas and their info.") 412 (defvar w3-hidden-forms nil "List of hidden form areas and their info.")
412 (defvar w3-hotlist nil "Default hotlist.") 413 (defvar w3-hotlist nil "Default hotlist.")
446 url-current-mime-headers 447 url-current-mime-headers
447 url-current-mime-type 448 url-current-mime-type
448 url-current-mime-viewer 449 url-current-mime-viewer
449 url-current-object 450 url-current-object
450 url-current-referer 451 url-current-referer
452 w3-current-badhtml
451 w3-current-parse 453 w3-current-parse
452 w3-current-isindex 454 w3-current-isindex
453 w3-current-last-buffer 455 w3-current-last-buffer
454 w3-current-links 456 w3-current-links
455 w3-current-metainfo 457 w3-current-metainfo
543 (define-key w3-mode-map "\C-o" 'w3-fetch) 545 (define-key w3-mode-map "\C-o" 'w3-fetch)
544 (define-key w3-mode-map "\M-M" 'w3-mail-document-under-point) 546 (define-key w3-mode-map "\M-M" 'w3-mail-document-under-point)
545 (define-key w3-mode-map "\M-m" 'w3-mail-current-document) 547 (define-key w3-mode-map "\M-m" 'w3-mail-current-document)
546 (define-key w3-mode-map "\M-s" 'w3-save-as) 548 (define-key w3-mode-map "\M-s" 'w3-save-as)
547 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image) 549 (define-key w3-mode-map "\M-\r" 'w3-follow-inlined-image)
548 (define-key w3-mode-map "b" 'w3-widget-backward) 550 (define-key w3-mode-map "b" 'widget-backward)
549 (define-key w3-mode-map "c" 'w3-mail-document-author) 551 (define-key w3-mode-map "c" 'w3-mail-document-author)
550 (define-key w3-mode-map "d" 'w3-download-this-url) 552 (define-key w3-mode-map "d" 'w3-download-this-url)
551 (define-key w3-mode-map "f" 'w3-widget-forward) 553 (define-key w3-mode-map "f" 'widget-forward)
552 (define-key w3-mode-map "g" 'w3-reload-document) 554 (define-key w3-mode-map "g" 'w3-reload-document)
553 (define-key w3-mode-map "i" 'w3-document-information) 555 (define-key w3-mode-map "i" 'w3-document-information)
554 (define-key w3-mode-map "k" 'w3-save-url) 556 (define-key w3-mode-map "k" 'w3-save-url)
555 (define-key w3-mode-map "l" 'w3-goto-last-buffer) 557 (define-key w3-mode-map "l" 'w3-goto-last-buffer)
556 (define-key w3-mode-map "m" 'w3-complete-link) 558 (define-key w3-mode-map "m" 'w3-complete-link)
557 (define-key w3-mode-map "n" 'w3-widget-forward) 559 (define-key w3-mode-map "n" 'widget-forward)
558 (define-key w3-mode-map "o" 'w3-open-local) 560 (define-key w3-mode-map "o" 'w3-open-local)
559 (define-key w3-mode-map "p" 'w3-print-this-url) 561 (define-key w3-mode-map "p" 'w3-print-this-url)
560 (define-key w3-mode-map "q" 'w3-quit) 562 (define-key w3-mode-map "q" 'w3-quit)
561 (define-key w3-mode-map "r" 'w3-reload-document) 563 (define-key w3-mode-map "r" 'w3-reload-document)
562 (define-key w3-mode-map "s" 'w3-source-document) 564 (define-key w3-mode-map "s" 'w3-source-document)
566 568
567 ;; Emulate some netscape stuff by default 569 ;; Emulate some netscape stuff by default
568 (define-key w3-mode-map [(control alt t)] 'url-list-processes) 570 (define-key w3-mode-map [(control alt t)] 'url-list-processes)
569 (define-key w3-mode-map [(control meta t)] 'url-list-processes) 571 (define-key w3-mode-map [(control meta t)] 'url-list-processes)
570 572
571 ;; Widget navigation
572 (if t
573 nil
574 (define-key w3-mode-map "\r" 'w3-widget-button-press)
575 (define-key w3-mode-map "\n" 'w3-widget-button-press)
576 (define-key w3-mode-map [tab] 'w3-widget-forward)
577 (define-key w3-mode-map "\t" 'w3-widget-forward)
578 (define-key w3-mode-map "\M-\t" 'w3-widget-backward)
579 (define-key w3-mode-map [backtab] 'w3-widget-backward)
580 (define-key w3-mode-map [(shift tab)] 'w3-widget-backward)
581 (define-key w3-mode-map [(meta tab)] 'w3-widget-backward)
582 )
583 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 573 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
584 ;;; Keyword definitions 574 ;;; Keyword definitions
585 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 575 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
586 (require 'w3-keyword) 576 (require 'w3-keyword)
587 (provide 'w3-vars) 577 (provide 'w3-vars)