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