Mercurial > hg > xemacs-beta
comparison lisp/url/docomp.el @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:45:50 +0200 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:376386a54a3c |
|---|---|
| 1 (setq load-path (cons (expand-file-name "./") load-path)) | |
| 2 | |
| 3 (defun url-declare-variables (&rest args) | |
| 4 (while args | |
| 5 (eval (list 'defvar (car args) nil "")) | |
| 6 (setq args (cdr args)))) | |
| 7 | |
| 8 ;; Various internals | |
| 9 (url-declare-variables 'proxy-info 'mm-mime-data | |
| 10 'mm-content-transfer-encodings) | |
| 11 | |
| 12 ;; For Emacs 19 | |
| 13 (url-declare-variables 'track-mouse 'menu-bar-help-menu) | |
| 14 | |
| 15 ;; For MULE | |
| 16 (url-declare-variables '*noconv* '*autoconv* '*euc-japan* '*internal* | |
| 17 'file-coding-system-for-read 'file-coding-system) | |
| 18 | |
| 19 ;; For Mailcrypt | |
| 20 (url-declare-variables 'mc-pgp-path 'mc-pgp-key-begin-line 'mc-ripem-pubkeyfile | |
| 21 'mc-default-scheme 'mc-flag) | |
| 22 | |
| 23 ;; For NNTP | |
| 24 (url-declare-variables 'nntp-server-buffer 'nntp-server-process | |
| 25 'nntp/connection 'gnus-nntp-server | |
| 26 'nntp-server-name 'nntp-version | |
| 27 'gnus-default-nntp-server) | |
| 28 | |
| 29 ;; For ps-print | |
| 30 (url-declare-variables 'ps-bold-faces 'ps-italic-faces 'ps-print-version) | |
| 31 | |
| 32 ;; For xpm-button | |
| 33 (url-declare-variables 'x-library-search-path) | |
| 34 | |
| 35 (url-declare-variables 'command-line-args-left 'standard-display-table) | |
| 36 | |
| 37 (load "bytecomp" t t nil) | |
| 38 ;; Emacs 19 byte compiler complains about too much stuff by default. | |
| 39 ;; Turn off most of the warnings here. | |
| 40 (setq byte-compile-warnings '(free-vars)) | |
| 41 | |
| 42 (require 'url-vars) |