Commit 59425106 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 587d108e
;;; 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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment