Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-vars.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents c53a95d3c46d
children 8d2a9b52c682
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
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/03/18 01:10:33 3 ;; Created: 1997/03/20 18:03:49
4 ;; Version: 1.109 4 ;; Version: 1.112
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.69")) 36 (let ((x "p3.0.71"))
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/03/18 01:10:33")) 44 (defconst w3-version-date (let ((x "1997/03/20 18:03:49"))
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
362 362
363 (defvar w3-delayed-images nil 363 (defvar w3-delayed-images nil
364 "*A buffer-local variable holding positions and urls of images within 364 "*A buffer-local variable holding positions and urls of images within
365 the buffer.") 365 the buffer.")
366 366
367 (defvar w3-frame-labels '("FRAME(" . ")")
368 "Strings surrounding a frame name")
369
370 (defvar w3-frame-regexp "FRAME(\\([^)]+\\))"
371 "Regexp for finding a frame hyperlink")
372
373 (defvar w3-frameset-structure nil 367 (defvar w3-frameset-structure nil
374 "Frameset structure") 368 "Frameset structure, heap of '(frameset ({cols|rows} \"<dimensions>\")) and '(<frame name> <href>)")
375
376 (defvar w3-frameset-dimensions nil
377 "Frameset dimensions")
378 369
379 (defvar w3-frame-name nil 370 (defvar w3-frame-name nil
380 "Frame name") 371 "Frame name")
381 372
382 (defvar w3-base-target nil 373 (defvar w3-base-target nil
473 w3-id-positions 464 w3-id-positions
474 w3-imagemaps 465 w3-imagemaps
475 w3-base-target 466 w3-base-target
476 w3-target-window-distances 467 w3-target-window-distances
477 w3-frameset-structure 468 w3-frameset-structure
478 w3-frameset-dimensions
479 ) 469 )
480 "A list of variables that should be preserved when entering w3-mode.") 470 "A list of variables that should be preserved when entering w3-mode.")
481 471
482 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 472 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
483 ;;; Emulation stuff 473 ;;; Emulation stuff