Mercurial > emacs

changeset 68120:3866d4654d59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(url-setup-privacy-info): Add docstring.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 10 Jan 2006 19:13:54 +0000
parents fef56eb2c1ba
children 0c55f53b51e6
files lisp/url/url-privacy.el
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/url/url-privacy.el	Tue Jan 10 18:46:07 2006 +0000
+++ b/lisp/url/url-privacy.el	Tue Jan 10 19:13:54 2006 +0000
@@ -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