From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 10 Jan 2006 19:13:54 +0000 (+0000)
Subject: (url-setup-privacy-info): Add docstring.
X-Git-Tag: emacs-pretest-22.0.90~4812
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59425106a200222d83e3f706d4d20571917bd8cf;p=emacs.git

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

diff --git a/lisp/url/url-privacy.el b/lisp/url/url-privacy.el
index 7700bb13941..b57de81c813 100644
--- 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