Lines Matching +defs:url +defs:type
0 ;;; url-vars.el --- Variables for Uniform Resource Locator tool
29 (defconst url-version "Emacs"
32 (defgroup url nil
37 (defgroup url-file nil
39 :prefix "url-"
40 :group 'url)
42 (defgroup url-cache nil
44 :prefix "url-"
45 :prefix "url-cache-"
46 :group 'url)
48 (defgroup url-mime nil
50 :prefix "url-"
51 :group 'url)
53 (defgroup url-hairy nil
55 :prefix "url-"
56 :group 'url)
59 (defvar url-current-object nil
60 "A parsed representation of the current url.")
62 (defvar url-current-mime-headers nil
63 "A parsed representation of the MIME headers for the current url.")
67 url-current-object
68 url-current-referer
69 url-current-mime-headers
72 (defcustom url-honor-refresh-requests t
79 :type '(choice (const :tag "off" nil)
82 :group 'url-hairy)
84 (defcustom url-automatic-caching nil
86 :type 'boolean
87 :group 'url-cache)
90 (defcustom url-cache-expired
95 :type 'function
96 :group 'url-cache)
98 (defconst url-bug-address "bug-gnu-emacs@gnu.org"
101 (defcustom url-personal-mail-address nil
105 :type '(choice (const :tag "Unspecified" nil) string)
106 :group 'url)
108 (defcustom url-directory-index-file "index.html"
112 :type 'string
113 :group 'url-file)
115 (defcustom url-privacy-level '(email)
138 (setq url-privacy-level 'high)
139 (setq url-privacy-level '(email lastloc)) ;; equivalent to 'high
140 (setq url-privacy-level '(os))
144 updated. Call the function `url-setup-privacy-info' after modifying this
147 :set (lambda (sym val) (set-default sym val) (url-setup-privacy-info))
148 :type '(radio (const :tag "None (you believe in the basic goodness of humanity)"
162 :group 'url)
164 (defvar url-inhibit-uncompression nil "Do not do decompression if non-nil.")
166 (defcustom url-uncompressor-alist '((".z" . "x-gzip")
173 :type '(repeat (cons :format "%v"
176 :group 'url-mime)
178 (defcustom url-mail-command 'compose-mail
179 "*This function will be called whenever url needs to send mail.
183 :type 'function
184 :group 'url)
186 (defcustom url-proxy-services nil
190 :type '(repeat (cons :format "%v"
193 :group 'url)
195 (defcustom url-standalone-mode nil
197 :type 'boolean
198 :group 'url-cache)
200 (defvar url-mime-separator-chars (mapcar 'identity
206 (defcustom url-bad-port-list
212 :type '(repeat (string :tag "Port"))
213 :group 'url-hairy)
215 (defvar url-mime-content-type-charset-regexp
219 (defvar url-request-data nil "Any data to send with the next request.")
221 (defvar url-request-extra-headers nil
225 (defvar url-request-method nil "The method to use for the next request.")
228 (defvar url-mime-encoding-string nil
235 (defun url-mime-charset-string ()
249 (defvar url-mime-charset-string (url-mime-charset-string)
254 (defun url-set-mime-charset-string ()
255 (setq url-mime-charset-string (url-mime-charset-string)))
257 (add-hook 'set-language-environment-hook 'url-set-mime-charset-string)
260 (defcustom url-mime-language-string nil
269 :type '(radio
273 :group 'url-mime
276 (defvar url-mime-accept-string nil
279 (defvar url-package-version nil
282 (defvar url-package-name nil "Name of package using URL.")
284 (defvar url-system-type nil
285 "What type of system we are on.")
286 (defvar url-os-type nil
289 (defcustom url-max-password-attempts 5
292 :type 'integer
293 :group 'url)
295 (defcustom url-temporary-directory (or (getenv "TMPDIR") "/tmp")
297 :type 'directory
298 :group 'url-file)
300 (defcustom url-show-status t
304 :type 'boolean
305 :group 'url)
307 (defvar url-using-proxy nil
311 (defcustom url-news-server nil
316 :type '(choice (const :tag "None" :value nil) string)
317 :group 'url)
319 (defvar url-nonrelative-link
323 (defcustom url-max-redirections 30
326 :type 'integer
327 :group 'url)
329 (defcustom url-confirmation-func 'y-or-n-p
334 :type '(choice (const :tag "Short (y or n)" :value y-or-n-p)
337 :group 'url-hairy)
339 (defcustom url-gateway-method 'native
340 "*The type of gateway support to use.
350 :type '(radio (const :tag "Telnet to gateway host" :value telnet)
356 :group 'url-hairy)
358 (defvar url-setup-done nil "Has setup configuration been done?")
360 (defconst url-weekday-alist
367 (defconst url-monthabbrev-alist
372 (defvar url-lazy-message-time 0)
375 (defvar url-extensions-header "Security/Digest Security/SSL")
377 (defvar url-parse-syntax-table
381 (modify-syntax-entry ?' "\"" url-parse-syntax-table)
382 (modify-syntax-entry ?` "\"" url-parse-syntax-table)
383 (modify-syntax-entry ?< "(>" url-parse-syntax-table)
384 (modify-syntax-entry ?> ")<" url-parse-syntax-table)
385 (modify-syntax-entry ?/ " " url-parse-syntax-table)
387 (defvar url-load-hook nil
394 (defconst url-working-buffer " *url-work")
396 (defvar url-gateway-unplugged nil
401 (defun url-vars-unload-hook ()
402 (remove-hook 'set-language-environment-hook 'url-set-mime-charset-string))
404 (add-hook 'url-vars-unload-hook 'url-vars-unload-hook)
406 (provide 'url-vars)
409 ;;; url-vars.el ends here