procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(url-setup-privacy-info): Add docstring.

Browse source
This commit is contained in:
Stefan Monnier 2006-01-10 19:13:54 +00:00
parent 587d108e55
commit 59425106a2
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/url/url-privacy.el
View file

@ -1,7 +1,7 @@
;;; url-privacy.el --- Global history tracking for URL package
;; Copyright (C) 1996, 1997, 1998, 1999, 2004,
;; 2005 Free Software Foundation, Inc.
;; 2005, 2006 Free Software Foundation, Inc.
;; Keywords: comm, data, processes, hypermedia
@ -33,6 +33,7 @@
;;;###autoload
(defun url-setup-privacy-info ()
"Setup variables that expose info about you and your system."
(interactive)
(setq url-system-type
(cond
@ -72,13 +73,11 @@
(and (listp url-privacy-level)
(memq 'os url-privacy-level)))
nil)
((boundp 'system-configuration)
system-configuration)
((boundp 'system-type)
(symbol-name system-type))
((boundp 'system-configuration) system-configuration)
((boundp 'system-type) (symbol-name system-type))
(t nil))))
(provide 'url-privacy)
;;; arch-tag: fdaf95e4-98f0-4680-94c3-f3eadafabe1d
;; arch-tag: fdaf95e4-98f0-4680-94c3-f3eadafabe1d
;;; url-privacy.el ends here