Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 9ee227acff29
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
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: 1996/06/06 14:20:01 3 ;; Created: 1996/08/29 04:09:40
4 ;; Version: 1.219 4 ;; Version: 1.18
5 ;; Keywords: comm, help, hypermedia 5 ;; Keywords: comm, help, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993, 1994, 1995 by William M. Perry (wmperry@spry.com) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; 9 ;;;
10 ;;; This file is not part of GNU Emacs, but the same permissions apply. 10 ;;; This file is not part of GNU Emacs, but the same permissions apply.
11 ;;; 11 ;;;
12 ;;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;;; it under the terms of the GNU General Public License as published by 13 ;;; it under the terms of the GNU General Public License as published by
26 26
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
28 ;;; Variable definitions for w3 28 ;;; Variable definitions for w3
29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30 (defconst w3-version-number 30 (defconst w3-version-number
31 (let ((x "p2-3-67")) 31 (let ((x "p3.0.12"))
32 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x) 32 (if (string-match "State:[ \t\n]+.\\([^ \t\n]+\\)" x)
33 (setq x (substring x (match-beginning 1) (match-end 1))) 33 (setq x (substring x (match-beginning 1) (match-end 1)))
34 (setq x (substring x 1))) 34 (setq x (substring x 1)))
35 (mapconcat 35 (mapconcat
36 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x "")) 36 (function (lambda (x) (if (= x ?-) "." (char-to-string x)))) x ""))
37 "Version # of w3-mode.") 37 "Version # of w3-mode.")
38 38
39 (defconst w3-version-date (let ((x "1996/06/06 14:20:01")) 39 (defconst w3-version-date (let ((x "1996/08/29 04:09:40"))
40 (if (string-match "Date: \\([^ \t\n]+\\)" x) 40 (if (string-match "Date: \\([^ \t\n]+\\)" x)
41 (substring x (match-beginning 1) (match-end 1)) 41 (substring x (match-beginning 1) (match-end 1))
42 x)) 42 x))
43 "Date this version of w3-mode was released.") 43 "Date this version of w3-mode was released.")
44 44
358 358
359 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 359 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
360 ;;; Figure out what flavor of emacs we are running 360 ;;; Figure out what flavor of emacs we are running
361 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 361 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
362 (defvar w3-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) 362 (defvar w3-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)
363 "*In XEmacs or Lucid Emacs?.") 363 "*In XEmacs?.")
364 364
365 (defvar w3-running-FSF19 (and (string-match "^19" emacs-version) 365 (defvar w3-running-FSF19 (and (string-match "^19" emacs-version)
366 (not w3-running-xemacs)) 366 (not w3-running-xemacs))
367 "*In FSF v19 emacs?") 367 "*In FSF v19 emacs?")
368 368
387 it will put [[ & ]] around the entire text of the link. Is initially set 387 it will put [[ & ]] around the entire text of the link. Is initially set
388 to be t iff in normal emacs. Nil if in XEmacs or lucid emacs, since links 388 to be t iff in normal emacs. Nil if in XEmacs or lucid emacs, since links
389 should be in different colors/fonts.") 389 should be in different colors/fonts.")
390 390
391 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 391 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
392 ;;; embedded document variables
393 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
394 (defvar w3-mpeg-size 150 "*The height and width of an mpeg window.")
395 (defvar w3-mpeg-args '("-loop") "*Arguments to mpeg_play.")
396 (defvar w3-mpeg-program "mpeg_play" "*The mpeg_play executable.")
397 (defvar w3-delayed-movies nil "A list of mpeg movies for this buffer.")
398
399 (defvar w3-embedded-data-converters
400 '(("application/eqn" . w3-embed-eqn)
401 ("application/postscript" . w3-embed-postscript)
402 ("text/plain". w3-embed-text)
403 ("text/html" . w3-embed-text)
404 ("image/.*" . w3-embed-image))
405 "An assoc list of regular expressions to match against MIME content-types
406 for embedded data in HTML documents. The cdr is a function to be passed
407 to 'funcall', with the embedded data and content-type as the sole arguments
408 passed to the function.")
409
410 (if w3-running-xemacs
411 (progn
412 (condition-case ()
413 (require 'annotations)
414 (error nil))
415 (setq w3-embedded-data-converters
416 (cons (cons "video/mpeg" 'w3-embed-mpeg)
417 w3-embedded-data-converters))))
418
419 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
420 ;;; Graphics parsing stuff 392 ;;; Graphics parsing stuff
421 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 393 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
422 (defvar w3-graphics-always-show-entities t 394 (defvar w3-graphics-always-show-entities t
423 "*Set to t to always show graphic entities, regardless of the value of 395 "*Set to t to always show graphic entities, regardless of the value of
424 w3-delay-image-loads. Useful if you keep the entities locally and aren't 396 w3-delay-image-loads. Useful if you keep the entities locally and aren't
431 "*Delay loading images for w3 or not?") 403 "*Delay loading images for w3 or not?")
432 404
433 (defvar w3-delayed-images nil 405 (defvar w3-delayed-images nil
434 "*A buffer-local variable holding positions and urls of images within 406 "*A buffer-local variable holding positions and urls of images within
435 the buffer.") 407 the buffer.")
436
437 (defvar w3-delay-mpeg-loads t
438 "*Whether to delay loading mpegs or not.")
439 408
440 (defvar w3-image-mappings 409 (defvar w3-image-mappings
441 '( 410 '(
442 ("image/x-xbitmap" . xbm) 411 ("image/x-xbitmap" . xbm)
443 ("image/xbitmap" . xbm) 412 ("image/xbitmap" . xbm)
747 (play.fast.reverse "play.fast.reverse" ) 716 (play.fast.reverse "play.fast.reverse" )
748 (play.pause "play.pause" ) 717 (play.pause "play.pause" )
749 (play.start "play.start" ) 718 (play.start "play.start" )
750 (play.stop "play.stop" ) 719 (play.stop "play.stop" )
751 (previous "previous" ) 720 (previous "previous" )
721 (prince "prince" "the artist formerly known as prince")
722 (princesymbol "prince" "the artist formerly known as prince")
752 (printer "printer" ) 723 (printer "printer" )
753 (sadsmiley "sadsmiley" ":(") 724 (sadsmiley "sadsmiley" ":(")
754 (smiley "smiley" ":)") 725 (smiley "smiley" ":)")
755 (stop "stop" ) 726 (stop "stop" )
756 (summary "summary" ) 727 (summary "summary" )
843 :href 814 :href
844 :link-args 815 :link-args
845 :image 816 :image
846 :lists 817 :lists
847 :map 818 :map
848 :mpeg
849 :name 819 :name
850 :needspace 820 :needspace
851 :next-break 821 :next-break
852 :nofill 822 :nofill
853 :nowrap 823 :nowrap
934 ("Mail session" . "mailto")) 904 ("Mail session" . "mailto"))
935 "An assoc list of descriptive labels and the corresponding URL stub.") 905 "An assoc list of descriptive labels and the corresponding URL stub.")
936 906
937 (defvar w3-annotation-marker "<ncsa-annotation-format-1>") 907 (defvar w3-annotation-marker "<ncsa-annotation-format-1>")
938 (defvar w3-annotation-minor-mode nil "Whether we are in the minor mode.") 908 (defvar w3-annotation-minor-mode nil "Whether we are in the minor mode.")
939 (defconst w3-bug-address "wmperry@spry.com" "Address of current maintainer.") 909 (defconst w3-bug-address "wmperry@cs.indiana.edu"
910 "Address of current maintainer, where to send bug reports.")
940 (defvar w3-continuation '(url-uncompress url-clean-text) 911 (defvar w3-continuation '(url-uncompress url-clean-text)
941 "List of functions to call to process a document completely.") 912 "List of functions to call to process a document completely.")
942 (defvar w3-current-annotation nil "URL of document we are annotating...") 913 (defvar w3-current-annotation nil "URL of document we are annotating...")
943 (defvar w3-current-isindex nil "Is the current document a searchable index?") 914 (defvar w3-current-isindex nil "Is the current document a searchable index?")
944 (defvar w3-current-last-buffer nil "Last W3 buffer seen before this one.") 915 (defvar w3-current-last-buffer nil "Last W3 buffer seen before this one.")
1006 w3-current-isindex 977 w3-current-isindex
1007 w3-current-last-buffer 978 w3-current-last-buffer
1008 w3-current-links 979 w3-current-links
1009 w3-current-source 980 w3-current-source
1010 w3-delayed-images 981 w3-delayed-images
1011 w3-delayed-movies
1012 w3-hidden-forms 982 w3-hidden-forms
1013 w3-invisible-href-list 983 w3-invisible-href-list
1014 w3-state-vector 984 w3-state-vector
1015 w3-current-stylesheet 985 w3-current-stylesheet
1016 w3-form-labels 986 w3-form-labels