Mercurial > hg > xemacs-beta

annotate lisp/w3/docomp.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents a145efe76779
children cca96a509cfe
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 (setq load-path (append (list (expand-file-name "./")
80
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
2 (or (getenv "WIDGETDIR")
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
3 (expand-file-name "../widget"))
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
4 )
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 load-path))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6
80
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
7 (setq max-specpdl-size (* 10 max-specpdl-size)
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
8 max-lisp-eval-depth (* 10 max-lisp-eval-depth))
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
9
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 (defun w3-declare-variables (&rest args)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 (while args
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 (eval (list 'defvar (car args) nil ""))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 (setq args (cdr args))))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 ;; For Emacs 19
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 (w3-declare-variables 'track-mouse 'menu-bar-help-menu 'menu-bar-mode)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 ;; For XEmacs/Lucid
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 (w3-declare-variables 'current-menubar 'default-menubar 'extent
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 'mode-motion-hook 'mode-popup-menu 'sound-alist
2
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
21 'menubar-visible-p
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 'inhibit-help-echo 'default-toolbar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 'bottom-toolbar-height 'top-toolbar-height
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
24 'toolbar-buttons-captioned-p
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
25 'right-toolbar-width 'left-toolbar-width
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 'top-toolbar 'bottom-toolbar 'right-toolbar
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27 'left-toolbar 'device-fonts-cache
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 'has-modeline-p 'baud-rate)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 ;; For MULE
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 (w3-declare-variables '*noconv* '*autoconv* '*euc-japan* '*internal*
2
ac2d302a0011 Import from CVS: tag r19-15b2
cvs
parents: 0
diff changeset
32 'w3-mime-list-for-code-conversion 'lc-ltn1
80
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
33 'mule-version 'enable-multibyte-characters
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
34 'charset-latin-iso8859-1
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 'file-coding-system-for-read 'file-coding-system)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36
108
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 102
diff changeset
37 ;; For TM
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 102
diff changeset
38 (w3-declare-variables 'mime/editor-mode-flag 'mime-tag-format)
360340f9fd5f Import from CVS: tag r20-1b6
cvs
parents: 102
diff changeset
39
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 ;; For NNTP
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41 (w3-declare-variables 'nntp-server-buffer 'nntp-server-process 'nntp/connection
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 'gnus-nntp-server 'nntp-server-name 'nntp-version
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
43 'gnus-default-nntp-server)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45 ;; For xpm-button
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 (w3-declare-variables 'x-library-search-path)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 ;; For emacspeak
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 (w3-declare-variables 'dtk-voice-table 'dtk-punctuation-mode)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50
80
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
51 ;; For a few internal things
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 (w3-declare-variables 'tag 'w3-working-buffer 'proxy-info 'args
80
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
53 'w3-image-widgets-waiting 'w3-form-info
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 'w3-last-parse-tree 'command-line-args-left
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 'standard-display-table 'w3-html-bookmarks
80
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
56 'browse-url-browser-function 'widget-keymap)
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
57
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
58 ;; GNUS
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
59 (w3-declare-variables 'gnus-group-buffer 'gnus-version)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
60
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
61 (load "bytecomp" t t nil)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
62 ;; Emacs 19 byte compiler complains about too much stuff by default.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
63 ;; Turn off most of the warnings here.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
64 (setq byte-compile-warnings '(free-vars))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
65
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
66 (require 'w3-vars)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
67 (require 'url)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
68 (require 'mm)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
69 (and w3-running-FSF19
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
70 (< emacs-minor-version 29)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
71 (require 'font))
98
0d2f883870bc Import from CVS: tag r20-1b1
cvs
parents: 80
diff changeset
72
80
1ce6082ce73f Import from CVS: tag r20-0b90
cvs
parents: 70
diff changeset
73 (require 'w3-sysdp)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
74 (provide 'ange-ftp)