Mercurial > emacs
comparison lisp/url/url-vars.el @ 68121:0c55f53b51e6
(url-privacy-level): Add setter.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 10 Jan 2006 19:14:38 +0000 |
parents | 02ea691fea58 |
children | e3694f1cb928 8438f5473d99 |
comparison
equal
deleted
inserted
replaced
68120:3866d4654d59 | 68121:0c55f53b51e6 |
---|---|
1 ;;; url-vars.el --- Variables for Uniform Resource Locator tool | 1 ;;; url-vars.el --- Variables for Uniform Resource Locator tool |
2 | 2 |
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2004, | 3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2004, |
4 ;; 2005 Free Software Foundation, Inc. | 4 ;; 2005, 2006 Free Software Foundation, Inc. |
5 | 5 |
6 ;; Keywords: comm, data, processes, hypermedia | 6 ;; Keywords: comm, data, processes, hypermedia |
7 | 7 |
8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
9 | 9 |
110 If this file exists, and is readable, then it will be viewed instead of | 110 If this file exists, and is readable, then it will be viewed instead of |
111 using `dired' to view the directory." | 111 using `dired' to view the directory." |
112 :type 'string | 112 :type 'string |
113 :group 'url-file) | 113 :group 'url-file) |
114 | 114 |
115 ;; Fixme: this should have a setter which calls url-setup-privacy-info. | |
116 (defcustom url-privacy-level '(email) | 115 (defcustom url-privacy-level '(email) |
117 "*How private you want your requests to be. | 116 "How private you want your requests to be. |
118 HTTP has header fields for various information about the user, including | 117 HTTP has header fields for various information about the user, including |
119 operating system information, email addresses, the last page you visited, etc. | 118 operating system information, email addresses, the last page you visited, etc. |
120 This variable controls how much of this information is sent. | 119 This variable controls how much of this information is sent. |
121 | 120 |
122 This should a symbol or a list. | 121 This should a symbol or a list. |
142 | 141 |
143 ::NOTE:: | 142 ::NOTE:: |
144 This variable controls several other variables and is _NOT_ automatically | 143 This variable controls several other variables and is _NOT_ automatically |
145 updated. Call the function `url-setup-privacy-info' after modifying this | 144 updated. Call the function `url-setup-privacy-info' after modifying this |
146 variable." | 145 variable." |
146 :initialize 'custom-initialize-default | |
147 :set (lambda (sym val) (set-default sym val) (url-setup-privacy-info)) | |
147 :type '(radio (const :tag "None (you believe in the basic goodness of humanity)" | 148 :type '(radio (const :tag "None (you believe in the basic goodness of humanity)" |
148 :value none) | 149 :value none) |
149 (const :tag "Low (do not reveal last location)" | 150 (const :tag "Low (do not reveal last location)" |
150 :value low) | 151 :value low) |
151 (const :tag "High (no email address or last location)" | 152 (const :tag "High (no email address or last location)" |
276 "String to send to the server in the Accept: field in HTTP requests.") | 277 "String to send to the server in the Accept: field in HTTP requests.") |
277 | 278 |
278 (defvar url-package-version nil | 279 (defvar url-package-version nil |
279 "Version number of package using URL.") | 280 "Version number of package using URL.") |
280 | 281 |
281 (defvar url-package-name nil "Version number of package using URL.") | 282 (defvar url-package-name nil "Name of package using URL.") |
282 | 283 |
283 (defvar url-system-type nil | 284 (defvar url-system-type nil |
284 "What type of system we are on.") | 285 "What type of system we are on.") |
285 (defvar url-os-type nil | 286 (defvar url-os-type nil |
286 "What OS we are on.") | 287 "What OS we are on.") |