view lisp/url/docomp.el @ 7:c153ca296910

Added tag r19-15b4 for changeset 27bc7f280385
author cvs
date Mon, 13 Aug 2007 08:47:16 +0200
parents 376386a54a3c
children
line wrap: on
line source

(setq load-path (cons (expand-file-name "./") load-path))

(defun url-declare-variables (&rest args)
  (while args
    (eval (list 'defvar (car args) nil ""))
    (setq args (cdr args))))

;; Various internals
(url-declare-variables 'proxy-info 'mm-mime-data
		       'mm-content-transfer-encodings)

;; For Emacs 19
(url-declare-variables 'track-mouse 'menu-bar-help-menu)

;; For MULE
(url-declare-variables '*noconv* '*autoconv* '*euc-japan* '*internal*
		      'file-coding-system-for-read 'file-coding-system)

;; For Mailcrypt
(url-declare-variables 'mc-pgp-path 'mc-pgp-key-begin-line 'mc-ripem-pubkeyfile
		      'mc-default-scheme 'mc-flag)

;; For NNTP
(url-declare-variables 'nntp-server-buffer 'nntp-server-process
		       'nntp/connection 'gnus-nntp-server
		       'nntp-server-name 'nntp-version
		       'gnus-default-nntp-server)

;; For ps-print
(url-declare-variables 'ps-bold-faces 'ps-italic-faces 'ps-print-version)

;; For xpm-button
(url-declare-variables 'x-library-search-path)

(url-declare-variables 'command-line-args-left 'standard-display-table)

(load "bytecomp" t t nil)
;; Emacs 19 byte compiler complains about too much stuff by default.
;; Turn off most of the warnings here.
(setq byte-compile-warnings '(free-vars))

(require 'url-vars)