HOME


sh-3ll 1.0
DIR:/usr/share/emacs/26.1/lisp/url/
Upload File :
Current File : //usr/share/emacs/26.1/lisp/url/url-privacy.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'url-vars)
(defalias 'url-device-type #[(&optional device) "\302\303!\203\n\303!\207	\206\304\207" [device window-system fboundp device-type tty] 2])
#@61 Setup variables that expose info about you and your system.
(defalias 'url-setup-privacy-info #[nil "\306=\204<\203\307>\203\310\202K	\311=\203\312\202K	\313=\203)\314\202K\315 \316>\2034\317\202K\315 \211\320\267\202I\321\202J\322\202J\323\202J\310)\f\206[
\206[\324\325\326 \327 #\330>\204m<\203o\331>\203o\310\306=\204\200<\203\204\307>\203\204\310\202\234\332\333!\203\217\202\234\332\301!\203\233\334	!\202\234\310\211\207" [url-privacy-level system-type #1=#:val url-system-type url-personal-mail-address user-mail-address paranoid os nil windows-nt "Windows-NT; 32bit" ms-dos "MS-DOS; 32bit" url-device-type (win32 w32) "Windows; 32bit" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 61 ns 65 tty 69)) "X11" "OpenStep" "TTY" format "%s@%s" user-real-login-name system-name (paranoid high) email boundp system-configuration symbol-name url-os-type] 5 (#$ . 571) nil])
(provide 'url-privacy)