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