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

diff --git a/lisp/url/url-privacy.el b/lisp/url/url-privacy.el
index 7700bb1394190ab727c8a0f34517ca86a633b70d..b57de81c813a1bf17d3de771510868473d72ce12 100644 (file)
--- a/lisp/url/url-privacy.el
+++ b/lisp/url/url-privacy.el
@@ -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