Gecko [ 122.154.134.11 ]

Name	Size	Permission
url-about.elc	2.7 KB	-rw-r--r--
url-auth.elc	10.21 KB	-rw-r--r--
url-cache.elc	5.79 KB	-rw-r--r--
url-cid.elc	1.44 KB	-rw-r--r--
url-cookie.elc	15.75 KB	-rw-r--r--
url-dav.elc	21.04 KB	-rw-r--r--
url-dired.elc	2.98 KB	-rw-r--r--
url-expand.elc	4.48 KB	-rw-r--r--
url-file.elc	7.68 KB	-rw-r--r--
url-ftp.elc	979 B	-rw-r--r--
url-gw.elc	7.17 KB	-rw-r--r--
url-handlers.elc	15.91 KB	-rw-r--r--
url-history.elc	5.29 KB	-rw-r--r--
url-http.elc	32.76 KB	-rw-r--r--
url-imap.elc	2.32 KB	-rw-r--r--
url-irc.elc	2.88 KB	-rw-r--r--
url-ldap.elc	6.4 KB	-rw-r--r--
url-mailto.elc	3.19 KB	-rw-r--r--
url-methods.elc	4.47 KB	-rw-r--r--
url-misc.elc	3.43 KB	-rw-r--r--
url-news.elc	7.51 KB	-rw-r--r--
url-nfs.elc	4.47 KB	-rw-r--r--
url-ns.elc	2.36 KB	-rw-r--r--
url-parse.elc	14.35 KB	-rw-r--r--
url-privacy.elc	1.88 KB	-rw-r--r--
url-proxy.elc	1.84 KB	-rw-r--r--
url-util.elc	12.18 KB	-rw-r--r--
url-vars.elc	13.65 KB	-rw-r--r--
url.elc	7.69 KB	-rw-r--r--

Code Editor : url-ns.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:25 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/url/url-ns.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`url-ns.el' was compiled for Emacs 19.29 or later"))

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

(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�\fGGU??\205z�\310\311
\"\310\311\f\"\310\311\"\312
@@\"\312\f@@\"U\205z�\312
A@A@\"\312\fA@A@\"U\205z�\312\313
8\3138\"\312\313\f8\3138\"U\205z�\312\314
8\3148\"\312\314\f8\3148\"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 (#$ . 1414))
(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\2024�eb\210\325\331\312\313#\203U�\327\332!\210\202F�eb\210\325\333\312\313#\203g�\327\334!\210\202X�eb\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)

${this.title}

Code Editor : url-ns.elc