;ELC ;;; Compiled ;;; in Emacs version 27.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-gw) (defalias 'isPlainHostName #[(host) "\301\302\"?\207" [host string-match "\\."] 3]) (defalias 'dnsDomainIs #[(host dom) "\302\303!\304P \"\207" [dom host string-match regexp-quote "$"] 3]) (defalias 'dnsResolve #[(host) "\301!\207" [host url-gateway-nslookup-host] 2]) (defalias 'isResolvable #[(host) "\301\302\"\203 \303\207\304!\230?\207" [host string-match "^[0-9.]+$" t url-gateway-nslookup-host] 3]) (defalias 'isInNet #[(ip net mask) "\306\307\"\306 \307\"\306\n\307\"\211G\fGU?\206\fG GU??\205z\310\311 \"\310\311\f\"\310\311 \"\312 @ @\"\312\f@ @\"U\205z\312 A@ A@\"\312\fA@ A@\"U\205z\312\313 8\313 8\"\312\313\f8\313 8\"U\205z\312\314 8\314 8\"\312\314\f8\314 8\"U+\207" [ip net mask maskc ipc netc split-string "\\." mapcar string-to-number logand 2 3] 6]) #@23 Internal, do not use. (defvar url-ns-user-prefs nil (#$ . 1215)) (defalias 'url-ns-prefs #[(&optional file) "\204\304\305!\306!\203\307!\204\310\311\"\207\212\312\313\314\315\316\317\320$\321\322!q\210\323 \210\324!\210eb\210\325\326\312\313#\203C\327\330!\210\2024eb\210\325\331\312\313#\203U\327\332!\210\202Feb\210\325\333\312\313#\203g\327\334!\210\202Xeb\210\335 +\207" [file true false url-ns-user-prefs expand-file-name "~/.netscape/preferences.js" file-exists-p file-readable-p message "Could not open %s for reading" nil t make-hash-table :size 13 :test equal get-buffer-create " *ns-parse*" erase-buffer insert-file-contents re-search-forward "^//" replace-match ";;" "^user_pref(" "(url-ns-set-user-pref " "\"," "\"" eval-buffer] 5]) (defalias 'url-ns-set-user-pref #[(key val) "\303 \n#\207" [key val url-ns-user-prefs puthash] 4]) (defalias 'url-ns-user-pref #[(key &optional default) "\303 \n#\207" [key url-ns-user-prefs default gethash] 4]) (provide 'url-ns)