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-util.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:26 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/url/url-util.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-util.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\302\303\304\"\210\302\305\304\"\210\302\306\307\"\207" [require url-parse autoload timezone-parse-date "timezone" timezone-make-date-arpa-standard mail-header-extract "mailheader"] 3)
#@45 A syntax table for parsing sgml attributes.
(defvar url-parse-args-syntax-table (copy-syntax-table emacs-lisp-mode-syntax-table) (#$ . 821))
(byte-code "\301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310#\207" [url-parse-args-syntax-table modify-syntax-entry 39 "\"" 96 123 "(" 125 ")"] 4)
#@284 *What types of debug messages from the URL library to show.
Debug messages are logged to the *URL-DEBUG* buffer.

If t, all messages will be logged.
If a number, all messages will be logged, as well shown via `message'.
If a list, it is a list of the types of messages to be logged.
(custom-declare-variable 'url-debug 'nil '(#$ . -1135) :type '(choice (const :tag "none" nil) (const :tag "all" t) (checklist :tag "custom" (const :tag "HTTP" :value http) (const :tag "DAV" :value dav) (const :tag "General" :value retrieval) (const :tag "Filename handlers" :value handlers) (symbol :tag "Other"))) :group 'url-hairy)
(defalias 'url-debug #[(tag &rest args) "\203�\304\305!\210	\306=\204�	\247\204�	<\205=�\n	>\205=�r\307\310!q\210db\210\311\n!\312\313\314\"\315\261\210	\247\205<�\313\316\")\207" [quit-flag url-debug tag args error "Interrupted!" t get-buffer-create "*URL-DEBUG*" symbol-name " -> " apply format "\n" message] 5])
(defalias 'url-parse-args #[(str &optional nodowncase) "\306\211\211\211\211\211\211\212\214\307\310!q\210\311!\210\312 \210c\210ed\311!\210	}\210eb\210m\204\243�\313\306w\210`\314\306w\210\204J�\315`\"\210`{\316\306w\210`f\206Y�\317\320U\204c�\306\202\225�\321\306w\210`\211f\206o�\317\322U\204�\nf\206z�\317\323U\203\211�\nT\306\324\325\217{\202\224�\n\326\306w\210\327\306x\210`{
B\fB\313\306w\210\2022�\f.	\207" [nd st val-pos name-pos results value nil get-buffer-create " *urlparse-temp*" set-syntax-table erase-buffer "; \n	" "^ \n	=;" downcase-region " 	\n" 0 61 " 	\n=" 34 39 (byte-code "\300\301!\210`S\302\303w\210\207" [forward-sexp 1 "\"" nil] 3) ((error (byte-code "\300\301w\210`\207" ["^ 	\n" nil] 2))) "^;" " 	" name url-parse-args-syntax-table str nodowncase] 8])
#@342 Convert HTML markup-start characters to entity references in STRING.
Also replaces the " character, so that the result may be safely used as
  an attribute value in a tag.  Returns a new string with the result of the
  conversion.  Replaces these characters as follows:
    &  ==>  &amp;
    <  ==>  &lt;
    >  ==>  &gt;
    "  ==>  &quot;
(defalias 'url-insert-entities-in-string #[(string) "\301\302\"\2034�\212\303\304!q\210\305 \210\306p!\210c\210eb\210\307\310w\210m\2040�`f\311\236Ac\210\312\313!\210\202�\314 )\207\207" [string string-match "[&<>\"]" get-buffer-create " *entity*" erase-buffer buffer-disable-undo "^&<>\"" nil ((34 . "&quot;") (38 . "&amp;") (60 . "&lt;") (62 . "&gt;")) delete-char 1 buffer-string] 3 (#$ . 2894)])
#@77 Return a 'normalized' version of URL.
Strips out default port numbers, etc.
(defalias 'url-normalize-url #[(url) "\305\211\211\306!\211\307H\f>\204�\310\311!\210	\312H\211\313\235\203%�\202:�	\307H\f>\2041�\310\314!\210	\315\305I\210\316	!+\207" [retval data type url cl-struct-url-tags nil url-generic-parse-url 0 error "url-type accessing a non-url" 1 ("www" "about" "mailto" "info") "url-target storing a non-url" 7 url-recreate-url] 4 (#$ . 3645)])
#@122 Just like `message', but is a no-op if called more than once a second.
Will not do anything if `url-show-status' is nil.
(defalias 'url-lazy-message #[(&rest args) "?\206�\303 \206�	\304 A@\211U?\205�\305\306\n\"\207" [url-show-status url-lazy-message-time args active-minibuffer-window current-time apply message] 3 (#$ . 4116)])
#@68 Return a 'real' date string that most HTTP servers can understand.
(defalias 'url-get-normalized-date #[(&optional specified-time) "\302\303\304	\206\n�\305 \306#)\207" [system-time-locale specified-time "C" format-time-string "%a, %d %b %Y %T GMT" current-time t] 4 (#$ . 4458)])
#@44 Remove spaces/tabs at the end of a string.
(defalias 'url-eat-trailing-space #[(x) "GS\303\304\305E\211\306Y\203�\nH	>\203�\nS\211\202\n�\306\nTO*\207" [x skip-chars y 32 9 10 0] 5 (#$ . 4746)])
#@41 Remove spaces at the front of a string.
(defalias 'url-strip-leading-spaces #[(x) "GS\304\305\306\307E\nX\203 �\nH	>\203 �\nT\211\202\f�\n\310O+\207" [x skip-chars z y 0 32 9 10 nil] 6 (#$ . 4955)])
(defalias 'url-pretty-length #[(n) "\301W\203�\302\303\"\207\304W\203�\302\305\306\245\"\207\302\307\310\245\"\207" [n 1024 format "%d bytes" 1048576 "%dk" 1024.0 "%2.2fM" 1048576.0] 4])
(defalias 'url-display-percentage #[(fmt perc &rest args) "\205'�	\204�\304\305!\205'�\305 \207\304\306!\203\"�\n\203\"�\307\306	\n$\207\307\310	#\207" [url-show-status fmt perc args fboundp clear-progress-display progress-display apply message] 5])
(defalias 'url-percentage #[(x y) "\302\303!\203�\304\303	!\245\305_!\207\305_	\245\207" [x y fboundp float round 100] 4])
(defalias 'url-basepath 'url-file-directory)
#@47 Return the directory part of FILE, for a URL.
(defalias 'url-file-directory #[(file) "\204�\301\207\302\303\"\203�\304\305\211\224O!\207\304!\207" [file "" string-match "\\?" file-name-directory 0] 4 (#$ . 5787)])
#@50 Return the nondirectory part of FILE, for a URL.
(defalias 'url-file-nondirectory #[(file) "\204�\301\207\302\303\"\203�\304\305\211\224O!\207\304!\207" [file "" string-match "\\?" file-name-nondirectory 0] 4 (#$ . 6013)])
(defalias 'url-parse-query-string #[(query &optional downcase allow-newlines) "\306\211\211\211\211\307
\310\"\203X�@A\311\312\n\"\203�\313\n\314\211\224O\"\313\n\314\225\306O\"\203<�	\227\315	\f\"\211\203O�\n\nAB\241\210\202�	D\fB\202�\f-\207" [val key cur pairs retval query nil split-string "&" string-match "=" url-unhex-string 0 assoc allow-newlines downcase] 6])
(defalias 'url-unhex #[(x) "\301V\203�\302Y\203�\303\302Z\\\207\303\304Z\\\207\305Z\207" [x 57 97 10 65 48] 3])
#@217 Remove %XX embedded spaces, etc in a URL.
If optional second argument ALLOW-NEWLINES is non-nil, then allow the
decoding of carriage returns and line feeds in the string, which is normally
forbidden in URL encoding.
(defalias 'url-unhex-string #[(str &optional allow-newlines) "\206�\306\306\307\310\311\"\203V�\312\224\313T\234!\211\314_\313\315\\\234!\\\n\312O\2037�\316
!\202J�
\317U\204C�
\320U\203G�\321\202J�\316
!Q\312\225\322O+\202\n�\nP\211*\207" [str case-fold-search tmp start ch1 code "" t string-match "%[0-9a-f][0-9a-f]" 0 url-unhex 16 2 char-to-string 10 13 " " nil allow-newlines] 6 (#$ . 6764)])
#@92 A list of characters that are _NOT_ reserved in the URL spec.
This is taken from RFC 2396.
(defconst url-unreserved-chars '(97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 48 49 50 51 52 53 54 55 56 57 45 95 46 33 126 42 39 40 41) (#$ . 7405))
#@299 Return a new string that is STRING URI-encoded.
First, STRING is converted to utf-8, if necessary.  Then, for each
character in the utf-8 string, those found in `url-unreserved-chars'
are left as-is, all others are represented as a three-character
string: "%" followed by two lowercase hex digits.
(defalias 'url-hexify-string #[(string) "\301\302\303!\203�\304\305\"\202�\306#\207" [string mapconcat #[(byte) "	>\203\n�\302!\207\303\304\"\207" [byte url-unreserved-chars char-to-string format "%%%02x"] 3] multibyte-string-p encode-coding-string utf-8 ""] 5 (#$ . 7787)])
#@140 Return the filename extension of FNAME.
If optional argument X is t, then return the basename
of the file with the extension stripped off.
(defalias 'url-file-extension #[(fname &optional x) "\203#�\302!\211\203#�\303\304\"\203#�	\203�\305\211\224O\207\305\224\306O\207	\203)�\207\307\207" [fname x url-file-nondirectory string-match "\\.[^./]+$" 0 nil ""] 3 (#$ . 8375)])
#@117 Return a shortened version of URL that is WIDTH characters wide or less.
WIDTH defaults to the current frame width.
(defalias 'url-truncate-url-for-viewing #[(url &optional width) "\206�\306 \nG\307\310\307	Y\203)�\311\312\n\"\203)�\n\310\211\224O\313P\211G	W\204\252�\314\n!\211\310H>\204A�\315\316!\210\317H	\320Z	Y\203\200�\311\321\f\"\203\200�\f\310\225\307O
T\310H>\204n�\315\322!\210\317\fI\210\323!\211G\211\202K�
\324V\203\215�\325\fP\202\221�\321\fP\310H>\204\237�\315\322!\210\317\fI\210\323!\n-\207" [width fr-width url str-width fname modified frame-width nil 0 string-match "?" "?..." url-generic-parse-url error "url-filename accessing a non-url" 6 4 "/" "url-filename storing a non-url" url-recreate-url 1 "/.../" urlobj cl-struct-url-tags] 4 (#$ . 8763)])
#@180 View the current document's URL.
Optional argument NO-SHOW means just return the URL, don't show it in
the minibuffer.

This uses `url-current-object', set locally to the buffer.
(defalias 'url-view-url #[(&optional no-show) "\205�	\203\f�\302!\207\303\304\302!\"\207" [url-current-object no-show url-recreate-url message "%s"] 4 (#$ . 9586) nil])
#@28 Valid characters in a URL.
(defvar url-get-url-filename-chars "-%.?@a-zA-Z0-9()_/:~=&" (#$ . 9944))
#@127 Get the URL closest to point, but don't change position.
Has a preference for looking backward when not directly on a symbol.
(defalias 'url-get-url-at-point #[(&optional pt) "\212\203�b\210\305\211\212m\204\"�\306\307!\203\"�\310\305x\210o\204\"�\311u\210`f\203>�\312\313\314`f!\"\203>�\305x\210`\305w\210\202@�`\315\n`\")	\203V�\312\316	\"\203V�\317\320	\"	\203f�\312\321	\"\203f�	\322\305O	\203v�\312\323	\"\203v�	\324\311O	\203\205�\312\325	\"\203\205�\326	P	\203\222�\312\f	\"\204\222�\305	+\207" [pt url start url-get-url-filename-chars url-nonrelative-link nil looking-at "[] 	\n[{}()]" " \n	
({[]})" -1 string-match "[-%.?@a-zA-Z0-9()_/:~=&]" char-to-string buffer-substring-no-properties "^(.*)\\.?$" match-string 1 "^URL:" 4 "\\.$" 0 "^www\\." "http://"] 4 (#$ . 10051)])
#@58 Generate a unique filename in `url-temporary-directory'.
(defalias 'url-generate-unique-filename #[(&optional fmt) "\n\2043�\306\307\310 \"\311\312\306\313
#\314\315\f	\"!\203+�T
\316!P\202�\315\f	\"+\202d�\317\316\310 !P\311\312\306\n
\316!P\"\314\315\f	\"!\203_�T\306\n
\316!P\"\202G�\315\f	\"+)\207" [url-temporary-directory tempdir fmt x fname base format "url-tmp.%d" user-real-uid "" 0 "%s%d" file-exists-p expand-file-name int-to-string "url"] 5 (#$ . 10854)])
(make-obsolete 'url-generate-unique-filename 'make-temp-file "23.1")
#@51 Set `url-current-mime-headers' in current buffer.
(defalias 'url-extract-mime-headers #[nil "\212eb\210?\205�\301\300!\210\302 \211)\207" [url-current-mime-headers make-local-variable mail-header-extract] 2 (#$ . 11418)])
#@121 Make FILE only readable and writable by the current user.
Creates FILE and its parent directories if they do not exist.
(defalias 'url-make-private-file #[(file) "\302!\211\203
�\303	\304\"\210)\305\306\307\217\207" [file dir file-name-directory make-directory t nil (byte-code "\303 \304\216\305\306!\210\307\310!r	q\210\311\216\312ed\n\313\314\313\315&-\207" [umask #1=#:temp-buffer file default-file-modes ((set-default-file-modes umask)) set-default-file-modes 384 generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) write-region nil silent excl] 8) ((file-already-exists (byte-code "\301!\203�\302\303\"\210\304\305\"\207" [file file-symlink-p error "Danger: `%s' is a symbolic link" set-file-modes 384] 3)))] 4 (#$ . 11650)])
(provide 'url-util)

${this.title}

Code Editor : url-util.elc