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

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

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

(require 'url-parse)
#@60 Convert url to a fully specified url, and canonicalize it.
(autoload 'url-expand-file-name "url-expand" '(#$ . 640))
#@63 Dissect the current buffer and return a list of MIME handles.
(autoload 'mm-dissect-buffer "mm-decode" '(#$ . 763))
#@31 Get property of a URL SCHEME.
(autoload 'url-scheme-get-property "url-methods" '(#$ . 885))
#@304 *A regular expression for matching URLs handled by `file-name-handler-alist'.
Some valid URL protocols just do not make sense to visit interactively
(about, data, info, irc, mailto, etc).  This regular expression
avoids conflicts with local files that look like URLs (Gnus is
particularly bad at this).
(defvar url-handler-regexp "\\`\$https?\\|ftp\\|file\\|nfs\$://" (#$ . -984))
#@269 Non-nil if Url-Handler mode is enabled.
See the command `url-handler-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `url-handler-mode'.
(custom-declare-variable 'url-handler-mode 'nil '(#$ . 1374) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'url :type 'boolean)
#@40 Use URL to handle URL-like file names.
(defalias 'url-handler-mode #[(&optional arg) "\305 	\306=\203�\n?\202(�	\203�\307	!\310V\202(�\n\204\"�\311\202(�\312\313\302\"\210\314\315\303!\2044�\314\202F�\316\317\320\"\"\n\203F�\f\320BB\321\322\n\203P�\323\202Q�\324\"\210\325 \203u�\326\302!\210\305 \203h�\305 \232\203u�\312\327\n\203r�\330\202s�\331\"\210)\332 \210\n\207" [#1=#:last-message arg url-handler-mode file-name-handler-alist url-handler-regexp current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil boundp delq rassq url-file-handler run-hooks url-handler-mode-hook url-handler-mode-on-hook url-handler-mode-off-hook called-interactively-p customize-mark-as-set "Url-Handler mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1804) (list (or current-prefix-arg 'toggle))])
(byte-code "\300\301\302\303\304!\205�\304J#\207" [add-minor-mode url-handler-mode nil boundp url-handler-mode-map] 5)
(defalias 'url-run-real-handler #[(operation args) "\304	=\205�\nB\305\"*\207" [operation inhibit-file-name-operation inhibit-file-name-handlers args url-file-handler apply] 3])
#@187 Function called from the `file-name-handler-alist' routines.
OPERATION is what needs to be done (`file-exists-p', etc).  ARGS are
the arguments that would have been passed to OPERATION.
(defalias 'url-file-handler #[(operation &rest args) "\306N\206\f�\307\310\311\"!\312\211\211\203+�\313!\203+�\314\315 \316\216\317
\"*\2022�\312\320
\"\321\322\323	\203=�\324\202>�\325
\n&\210\n+\207" [operation hooked val fn save-match-data-internal args url-file-handlers intern-soft format "url-%s" nil fboundp t match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) apply url-run-real-handler url-debug handlers "%s %S%S => %S" "Hooked" "Real"] 8 (#$ . 2975)])
(defalias 'url-file-handler-identity #[(&rest args) "@\207" [args] 1])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\317#\210\300\320\302\321#\210\300\322\302\321#\210\300\323\302\321#\207" [put file-readable-p url-file-handlers url-file-exists-p substitute-in-file-name url-file-handler-identity file-name-absolute-p #[(&rest ignored) "\300\207" [t] 1] expand-file-name url-handler-expand-file-name directory-file-name url-handler-directory-file-name unhandled-file-name-directory url-handler-unhandled-file-name-directory file-remote-p url-handler-file-remote-p file-writable-p ignore file-symlink-p vc-registered] 4)
(defalias 'url-handler-expand-file-name #[(file &optional base) "\302!\203�\303\304\"\207\305	\"\207" [file base file-name-absolute-p expand-file-name "/" url-expand-file-name] 3])
(defalias 'url-handler-directory-file-name #[(dir) "\301\302\"\203	�\207\303\304C\"\207" [dir string-match "//\\'" url-run-real-handler directory-file-name] 3])
(defalias 'url-handler-unhandled-file-name-directory #[(filename) "\303!\211\304H\n>\204�\305\306!\210	\307H\310\232\205-�\311	\304H\n>\204%�\305\312!\210	\313H!\206-�\314)\207" [filename url cl-struct-url-tags url-generic-parse-url 0 error "url-type accessing a non-url" 1 "file" file-name-directory "url-filename accessing a non-url" 6 "/"] 4])
(defalias 'url-handler-file-remote-p #[(filename &optional identification connected) "\305!\211\306H\n>\204�\307\310!\210	\311H\205\374�	\306H\n>\204\"�\307\310!\210	\311H\312\232?\205\374�\313=\203C�	\306H\n>\204=�\307\310!\210	\311H\202\374�\314=\203[�	\306H\n>\204U�\307\315!\210	\316H\202\374�\317=\203s�	\306H\n>\204m�\307\320!\210	\321H\202\374�\322=\203\213�	\306H\n>\204\205�\307\323!\210	\324H\202\374�\325\326\327	\306H\n>\204\232�\307\310!\210	\311H	\306H\n>\204\251�\307\315!\210	\316H\330	\306H\n>\204\271�\307\320!\210	\321H	\211\306H\n>\204\312�\307\331!\210\f\332H\206\364�\f\306H\n>\204\334�\307\333!\210\f\334H\205\364�\335\f\306H\n>\204\357�\307\310!\210\f\311H\336\")\330\211\211\211&\n!)\207" [filename url cl-struct-url-tags identification urlobj url-generic-parse-url 0 error "url-type accessing a non-url" 1 "file" method user "url-user accessing a non-url" 2 host "url-host accessing a non-url" 4 localname "url-filename accessing a non-url" 6 url-recreate-url vector cl-struct-url nil "url-portspec accessing a non-url" 5 "url-fullness accessing a non-url" 9 url-scheme-get-property default-port] 14])
#@487 Copy URL to NEWNAME.  Both args must be strings.
Signals a `file-already-exists' error if file NEWNAME already exists,
unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil.
A number as third arg means request confirmation if NEWNAME already exists.
This is what happens in interactive use with M-x.
Fourth arg KEEP-TIME non-nil means give the new file the same
last-modified time as the old one.  (This works on only some systems.)
A prefix arg makes KEEP-TIME non-nil.
(defalias 'url-copy-file #[(url newname &optional ok-if-already-exists keep-time) "\305!\203�	\204�\306\307\"\210\310\n!\311\211\204�\306\312\n\"\210r\fq\210\313\314!)\315\"\210\316\f!\210\317!*\207" [newname ok-if-already-exists url handle buffer file-exists-p error "Opening output file: File already exists, %s" url-retrieve-synchronously nil "Opening input file: No such file or directory, %s" mm-dissect-buffer t mm-save-part-to-file kill-buffer mm-destroy-parts] 4 (#$ . 6253)])
#@125 Copy URL into a temporary file on this machine.
Returns the name of the local copy, or nil, if FILE is directly
accessible.
(defalias 'url-file-local-copy #[(url &rest ignored) "\302\303!\304	\305#\210)\207" [filename url make-temp-file "url" url-copy-file ok-if-already-exists] 4 (#$ . 7242)])
#@487 Insert the body of a URL object.
BUFFER should be a complete URL buffer as returned by `url-retrieve'.
If the headers specify a coding-system, it is applied to the body before it is inserted.
Returns a list of the form (SIZE CHARSET), where SIZE is the size in bytes
of the inserted text and CHARSET is the charset that was specified in the header,
or nil if none was found.
BEG and END can be used to only insert a subpart of the body.
They count bytes from the beginning of the body.
(defalias 'url-insert #[(buffer &optional beg end) "rq\210\306\307!)r	@q\210\n\203$�e\n\\\203�e\\\202 �d{\202&�\310 )\311	A@\305\"\312	!\210
\203B�\313\f\314
!\"c\210\202E�\fc\210\fG
+D\207" [buffer handle beg end data charset mm-dissect-buffer t buffer-string mail-content-type-get mm-destroy-parts mm-decode-string mm-charset-to-coding-system] 4 (#$ . 7547)])
(defalias 'url-insert-file-contents #[(url &optional visit beg end replace) "\306!\211\204
�\307\310\"\210\n\203�\212`\311	
\f#
\312	!\210\203/�e\f|\210`d|\210
\211A@)\204G�\313\f`\n
\f&\210
@,D\207" [url buffer visit buffer-file-name start beg url-retrieve-synchronously error "Opening input file: No such file or directory, %s" url-insert kill-buffer decode-coding-inserted-region end size-and-charset replace x] 9])
(defalias 'url-file-name-completion #[(url directory &optional predicate) "\300\301!\207" [error "Unimplemented"] 2])
(defalias 'url-file-name-all-completions #[(file directory) "\300\301!\207" [error "Unimplemented"] 2])
(defalias 'url-handlers-create-wrapper '(macro . #[(method args) "\302\303\304\305\"!	\304\306\307\310\"\206�\311#\312\313\314\315\316\317\320DE\321\322\321\323	\"\"BBE\257\207" [method args defun intern format "url-%s" "URL file-name-handler wrapper for `%s' call.\n---\n%s" documentation t "No original documentation." (setq url (url-generic-parse-url url)) when (url-type url) funcall url-scheme-get-property (url-type url) quote remove &rest &optional] 14]))
#@292 URL file-name-handler wrapper for `file-exists-p' call.
---
Return t if file FILENAME exists (whether or not you can read it.)
See also `file-readable-p' and `file-attributes'.
This returns nil for a symlink to a nonexistent file.
Use `file-symlink-p' to test for such links.

(fn FILENAME)
(defalias 'url-file-exists-p #[(url) "\302!\211\303H	>\204�\304\305!\210\306H\205*�\307\303H	>\204#�\304\305!\210\306H\310\"!\207" [url cl-struct-url-tags url-generic-parse-url 0 error "url-type accessing a non-url" 1 url-scheme-get-property file-exists-p] 4 (#$ . 9540)])
#@1928 URL file-name-handler wrapper for `file-attributes' call.
---
Return a list of attributes of file FILENAME.
Value is nil if specified file cannot be opened.

ID-FORMAT specifies the preferred format of attributes uid and gid (see
below) - valid values are 'string and 'integer. The latter is the default,
but we plan to change that, so you should specify a non-nil value for
ID-FORMAT if you use the returned uid or gid.

Elements of the attribute list are:
 0. t for directory, string (name linked to) for symbolic link, or nil.
 1. Number of links to file.
 2. File uid as a string or a number.  If a string value cannot be
  looked up, a numeric value, either an integer or a float, is returned.
 3. File gid, likewise.
 4. Last access time, as a list of two integers.
  First integer has high-order 16 bits of time, second has low 16 bits.
  (See a note below about FAT-based filesystems.)
 5. Last modification time, likewise.
 6. Last status change time, likewise.
 7. Size in bytes.
  This is a floating point number if the size is too large for an integer.
 8. File modes, as a string of ten letters or dashes as in ls -l.
 9. t if file's gid would change if file were deleted and recreated.
10. inode number.  If inode number is larger than the Emacs integer,
  but still fits into a 32-bit number, this is a cons cell containing two
  integers: first the high part, then the low 16 bits.  If the inode number
  is wider than 32 bits, this is a cons cell containing three integers:
  first the high 24 bits, then middle 24 bits, and finally the low 16 bits.
11. Device number.  If it is larger than the Emacs integer, this is
  a cons cell, similar to the inode number.

On MS-Windows, performance depends on `w32-get-true-file-attributes',
which see.

On some FAT-based filesystems, only the date of last access is recorded,
so last access time will always be midnight of that day.

(fn FILENAME &optional ID-FORMAT)
(defalias 'url-file-attributes #[(url &optional id-format) "\303!\211\304H	>\204�\305\306!\210\307H\205+�\310\304H	>\204#�\305\306!\210\307H\311\"\n\"\207" [url cl-struct-url-tags id-format url-generic-parse-url 0 error "url-type accessing a non-url" 1 url-scheme-get-property file-attributes] 4 (#$ . 10119)])
#@303 URL file-name-handler wrapper for `file-symlink-p' call.
---
Return non-nil if file FILENAME is the name of a symbolic link.
The value is the link target, as a string.
Otherwise it returns nil.

This function returns t when given the name of a symlink that
points to a nonexistent file.

(fn FILENAME)
(defalias 'url-file-symlink-p #[(url) "\302!\211\303H	>\204�\304\305!\210\306H\205*�\307\303H	>\204#�\304\305!\210\306H\310\"!\207" [url cl-struct-url-tags url-generic-parse-url 0 error "url-type accessing a non-url" 1 url-scheme-get-property file-symlink-p] 4 (#$ . 12371)])
#@138 URL file-name-handler wrapper for `file-writable-p' call.
---
Return t if file FILENAME can be written or created by you.

(fn FILENAME)
(defalias 'url-file-writable-p #[(url) "\302!\211\303H	>\204�\304\305!\210\306H\205*�\307\303H	>\204#�\304\305!\210\306H\310\"!\207" [url cl-struct-url-tags url-generic-parse-url 0 error "url-type accessing a non-url" 1 url-scheme-get-property file-writable-p] 4 (#$ . 12963)])
#@227 URL file-name-handler wrapper for `file-directory-p' call.
---
Return t if FILENAME names an existing directory.
Symbolic links to directories count as directories.
See `file-symlink-p' to distinguish symlinks.

(fn FILENAME)
(defalias 'url-file-directory-p #[(url) "\302!\211\303H	>\204�\304\305!\210\306H\205*�\307\303H	>\204#�\304\305!\210\306H\310\"!\207" [url cl-struct-url-tags url-generic-parse-url 0 error "url-type accessing a non-url" 1 url-scheme-get-property file-directory-p] 4 (#$ . 13392)])
#@193 URL file-name-handler wrapper for `file-executable-p' call.
---
Return t if FILENAME can be executed by you.
For a directory, this means you can access files in that directory.

(fn FILENAME)
(defalias 'url-file-executable-p #[(url) "\302!\211\303H	>\204�\304\305!\210\306H\205*�\307\303H	>\204#�\304\305!\210\306H\310\"!\207" [url cl-struct-url-tags url-generic-parse-url 0 error "url-type accessing a non-url" 1 url-scheme-get-property file-executable-p] 4 (#$ . 13912)])
#@579 URL file-name-handler wrapper for `directory-files' call.
---
Return a list of names of files in DIRECTORY.
There are three optional arguments:
If FULL is non-nil, return absolute file names.  Otherwise return names
 that are relative to the specified directory.
If MATCH is non-nil, mention only file names that match the regexp MATCH.
If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
  Otherwise, the list returned is sorted with `stringp-lessp'.
  NOSORT is useful if you plan to sort the result yourself.

(fn DIRECTORY &optional FULL MATCH NOSORT)
(defalias 'url-directory-files #[(url &optional full match nosort) "\305!\211\306H	>\204�\307\310!\210\311H\205-�\312\306H	>\204#�\307\310!\210\311H\313\"\n\f$\207" [url cl-struct-url-tags full match nosort url-generic-parse-url 0 error "url-type accessing a non-url" 1 url-scheme-get-property directory-files] 6 (#$ . 14400)])
#@317 URL file-name-handler wrapper for `file-truename' call.
---
Return the truename of FILENAME, which should be absolute.
The truename of a file name is found by chasing symbolic links
both at the level of the file and at the level of the directories
containing it, until no links are left at any level.

(fn FILENAME)
(defalias 'url-file-truename #[(url &optional counter prev-dirs) "\304!\211\305H	>\204�\306\307!\210\310H\205,�\311\305H	>\204#�\306\307!\210\310H\312\"\n#\207" [url cl-struct-url-tags counter prev-dirs url-generic-parse-url 0 error "url-type accessing a non-url" 1 url-scheme-get-property file-truename] 5 (#$ . 15321)])
(add-hook 'find-file-hook 'url-handlers-set-buffer-mode)
#@69 Set correct modes for the current buffer if visiting a remote file.
(defalias 'url-handlers-set-buffer-mode #[nil ";\205�\302	\"\205�\303\304!\207" [buffer-file-name url-handler-regexp string-match auto-save-mode 0] 3 (#$ . 16030)])
(provide 'url-handlers)

${this.title}

Code Editor : url-handlers.elc