ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/tramp-compat.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\302\303!\204 \304\305\306\"\210\304\307\306\"\210\310\311!\210\310\312!\210\310\313!\210\310\314!\210\310\315\316\306#\210\310\317!\210\310\320!\210\310\321\316\306#\204< \310\322\316\306#\210\310\323\316\306#\210\310\324!\210\325\326!\204P \327\316!\210\325\330!\203b \331\316!\210\330\332\316!\210\333\325\334!\204l \335\316!\210\316\207" [byte-compile-not-obsolete-var byte-compile-not-obsolete-vars fboundp ignore-errors load "cl" noerror "cl-macs" require advice custom format-spec shell ucs-normalize nil trampver tramp-loaddefs password-cache password auth-source timer boundp last-coding-system-used (lambda (#1=#:def-tmp-var) (defvar last-coding-system-used #1#)) directory-sep-char (lambda (#1#) (defvar byte-compile-not-obsolete-var #1#)) (lambda (#1#) (defvar byte-compile-not-obsolete-vars #1#)) (directory-sep-char) remote-file-name-inhibit-cache (lambda (#1#) (defvar remote-file-name-inhibit-cache #1#))] 4)
(defalias 'tramp-compat-funcall '(macro . #[(function &rest arguments) "\302\303\304D\305DE\306\307 BBDE\207" [function arguments when or subrp functionp with-no-warnings funcall] 6]))
(byte-code "\300\301!\204 \302\301\303\"\210\300\304!\204 \302\304\305\"\210\300\306!\204! \302\306\307\"\210\300\310!\204, \302\310\311\"\210\312\313\314\"\204D \315\316\317\320\321$\210\322\316\321\"\210\323\324\325\"\210\300\326!\204O \302\326\303\"\210\300\327!\203] \302\330\327\"\210\202d \302\330\331\332B\"\210\300\333!\203r \302\334\333\"\210\202\205 \302\334\331\335B\"\210\336\334\337\340#\210\341\334\342\343#\210\321\207" [fboundp set-buffer-multibyte defalias ignore process-file #[(program &optional infile buffer display &rest args) "\306!\205 \307\310\311 \n \f
&\207" [default-directory program infile buffer display args tramp-tramp-file-p apply tramp-file-name-handler process-file] 8] start-file-process #[(name buffer program &rest program-args) "\305!\205 \306\307\310 \n \f&\207" [default-directory name buffer program program-args tramp-tramp-file-p apply tramp-file-name-handler start-file-process] 7] set-file-times #[(filename &optional time) "\302!\205 \303\304!\204 \305\304!\205 \304\306 #\207" [filename time tramp-tramp-file-p subrp tramp-file-name-handler functionp set-file-times] 4] featurep files remote-wildcards ad-add-advice file-expand-wildcards (tramp-advice-file-expand-wildcards nil t (advice lambda nil (let ((name (ad-get-arg 0))) (if (and (tramp-tramp-file-p name) (not (string-match "[[*?]" (tramp-compat-funcall 'file-remote-p name 'localname)))) (setq ad-return-value (list name)) ad-do-it)))) around nil ad-activate add-hook tramp-unload-hook #[nil "\300\301\302\303#\210\304\301!\207" [ad-remove-advice file-expand-wildcards around tramp-advice-file-expand-wildcards ad-activate] 4] redisplay with-temp-message tramp-compat-with-temp-message macro #[(_message &rest body) "\301B\207" [body progn] 2 "Display MESSAGE temporarily if non-nil while BODY is evaluated."] condition-case-unless-debug tramp-compat-condition-case-unless-debug #[(var bodyform &rest handlers) "\304\305!\306\307\310 EDC\311\312\313D\314\n\313D BBBFE)\207" [bodysym bodyform var handlers make-symbol "body" let lambda nil if debug-on-error funcall condition-case] 9 "Like `condition-case' except that it does not catch anything when debugging."] put edebug-form-spec condition-case function-put lisp-indent-function 2] 5)
#@37 Add highlighting KEYWORDS for MODE.
(defalias 'tramp-compat-font-lock-add-keywords #[(mode keywords &optional how) "\3031 \304\305!\204 \306\305!\205 \305 \n#0\207\210\307\207" [mode keywords how (error) subrp font-lock-add-keywords functionp nil] 4 (#$ . 3803)])
#@175 Return name of directory for temporary files (compat function).
For Emacs, this is the variable `temporary-file-directory', for XEmacs
this is the function `temp-directory'.
(defalias 'tramp-compat-temporary-file-directory #[nil "\302\303\304!\203 \305\304\306N@!\206\200 \307\310!\203( \311\310!\204# \312\310!\205\200 \310 \202\200 \313\314!\211\2053 \315 !)\203? \316\313\314!!\202\200 \313\317!\211\205J \315 !)\203V \316\313\317!!\202\200 \313\320!\211\205a \315 !)\203m \316\313\320!!\202\200 \321\322!\203y \316\322!\202\200 \323\324!\210\316\325!)\207" [file-name-handler-alist d nil boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp"] 4 (#$ . 4078)])
(put 'tramp-compat-temporary-file-directory 'byte-optimizer 'byte-compile-inline-expand)
#@81 Create a temporary file (compat function).
Add the extension of F, if existing.
(defalias 'tramp-compat-make-temp-file #[(f &optional dir-flag) "\306\307\310J\306\311\312!\203 \313\312\314N@!\206\205 \315\316!\203- \317\316!\204( \320\316!\205\205 \316 \202\205 \321\322!\211\2058 \323 !)\203D \324\321\322!!\202\205 \321\325!\211\205O \323 !)\203[ \324\321\325!!\202\205 \321\326!\211\205f \323 !)\203r \324\321\326!!\202\205 \327\330!\203~ \324\330!\202\205 \331\332!\210\324\333!)\"\334 \335\" \306 \3361\253 \317\337!\204\237 \320\337!\205\245 \337\n&\f#\2110\202\331 \210\3401\317 \341\n!\fP&\203\302 \342
!\210\202\312 \343\344\306
\306\345%\210\3060\202\323 \210\202\254 \203\332 \202\254 \210
,\207" [file-name-handler-alist d prefix f extension result nil expand-file-name tramp-temp-name-prefix boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" file-name-extension t (error) make-temp-file (file-already-exists) make-temp-name make-directory write-region "" silent dir-flag] 6 (#$ . 5070)])
(put 'tramp-compat-make-temp-file 'byte-optimizer 'byte-compile-inline-expand)
#@58 Return largest positive integer value (compat function).
(defalias 'tramp-compat-most-positive-fixnum #[nil "\300\301!\203 \301J\207\302\207" [boundp most-positive-fixnum 134217727] 2 (#$ . 6400)])
(put 'tramp-compat-most-positive-fixnum 'byte-optimizer 'byte-compile-inline-expand)
#@105 Return a string consisting of the octal digits of I.
Not actually used. Use `(format "%o" i)' instead?
(defalias 'tramp-compat-decimal-to-octal #[(i) "\301W\203\n \302\303!\207\250\204 \302\304!\207\301U\203 \305\207\306\307\245!\310\307\246!P\207" [i 0 error "Cannot convert negative number to octal" "Cannot convert non-integer to octal" "0" tramp-compat-decimal-to-octal 8 number-to-string] 4 (#$ . 6691)])
#@58 Given a string of octal digits, return a decimal number.
(defalias 'tramp-compat-octal-to-decimal #[(ostr) "\206 \302\303\304 \"\204 \305\306 \"\210\307\310\")\207" [ostr x "" string-match "\\`[0-7]*\\'" error "Non-octal junk in string `%s'" string-to-number 8] 3 (#$ . 7115)])
#@59 Like `file-attributes' for Tramp files (compat function).
(defalias 'tramp-compat-file-attributes #[(filename &optional id-format) "\203\n \302=\203 \303 !\207\304 !\203& \305\306!\204 \307\306!\205@ \306\303 #\207\3101< \305\303!\2046 \307\303!\205: \303 \"0\207\210\303 !\207" [id-format filename integer file-attributes tramp-tramp-file-p subrp tramp-file-name-handler functionp (wrong-number-of-arguments)] 4 (#$ . 7404)])
#@53 Like `copy-file' for Tramp files (compat function).
(defalias 'tramp-compat-copy-file #[(filename newname &optional ok-if-already-exists keep-date preserve-uid-gid preserve-extended-attributes) "\203( \3061 \307\310!\204 \311\310!\205 \310 \n \f
&0\207\210\312 \n \f
%\207
\203M \3131E \307\310!\204< \311\310!\205C \310 \n \f
%0\207\210\312 \n \f$\207\310 \n \f$\207" [preserve-extended-attributes filename newname ok-if-already-exists keep-date preserve-uid-gid (wrong-number-of-arguments) subrp copy-file functionp tramp-compat-copy-file (wrong-number-of-arguments)] 7 (#$ . 7843)])
#@45 Make a copy of DIRECTORY (compat function).
(defalias 'tramp-compat-copy-directory #[(directory newname &optional keep-time parents copy-contents) "\3061 \307\310!\204 \311\310!\205 \310 \n \f%0\207\210\312\310\"\206% \312 \310\"\211 \2034
\310 \n %\202~ \313\314!!\313\314 !!\315 !\203W \316!\316 !\230\204W \314\316! \"\315 !\204b \317 \"\210\320\321\322\323\324#\"\210\325 \326!\"\210\n\205~ \327 \330\331!8\")\207" [directory newname keep-time parents copy-contents handler (error) subrp copy-directory functionp find-file-name-handler directory-file-name expand-file-name file-directory-p file-name-nondirectory make-directory mapc #[(file) "\304!\203
\305 \n $\207\306 \307\n$\207" [file newname keep-time parents file-directory-p tramp-compat-copy-directory copy-file t] 5] directory-files full "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*" set-file-modes file-modes set-file-times 5 file-attributes] 7 (#$ . 8441)])
#@55 Like `delete-file' for Tramp files (compat function).
(defalias 'tramp-compat-delete-file #[(filename &optional trash) "\3031 \304\305!\204 \306\305!\205 \305 \"0\207\210\307\302!\205# \302J\205# \305!)\207" [filename trash delete-by-moving-to-trash (wrong-number-of-arguments) subrp delete-file functionp boundp] 3 (#$ . 9385)])
#@60 Like `delete-directory' for Tramp files (compat function).
(defalias 'tramp-compat-delete-directory #[(directory &optional recursive trash) "\30318 \203 \304\305!\204 \306\305!\2056 \305 \n#\2026 \n\2033 \304\305!\204, \306\305!\2056 \305 \n\"\2026 \305 !0\207\210\307\310 !!\311 !\204N \312\313\314 \315\316#\"\210\305 !\207" [trash directory recursive (wrong-number-of-arguments) subrp delete-directory functionp directory-file-name expand-file-name file-symlink-p mapc #[(file) "\303!@\304=\203 \305 \n#\207\306\n\"\207" [file recursive trash file-attributes t tramp-compat-delete-directory tramp-compat-delete-file] 4] directory-files full "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"] 6 (#$ . 9728)])
#@48 Like `load' for Tramp files (compat function).
(defalias 'tramp-compat-load #[(file &optional noerror nomessage nosuffix must-suffix) "\203 \305\306!\204 \307\306!\205 \306 \n \f%\207\306 \n \f$\207" [must-suffix file noerror nomessage nosuffix subrp load functionp] 6 (#$ . 10443)])
#@75 Return a sequence of numbers from FROM to TO as a list (compat function).
(defalias 'tramp-compat-number-sequence #[(from &optional to inc) "\306\307!\204\f \310\307!\203 \306\307!\204 \311\307!\205x \307 \n#\207 \203( U\203+ C\207\n\2041 \312\n\313U\203; \314\315!\210\316\313 \n\313V\203^ X\203u
B\fT\f\n_\\\211\202H Y\203u
B\fT\f\n_\\\211\202_
\237+\207" [from to inc next n seq subrp number-sequence symbol-file functionp 1 0 error "The increment can not be zero" nil] 5 (#$ . 10738)])
#@201 Like `split-string' but omit empty strings.
In Emacs, (split-string "/foo/bar" "/") returns ("foo" "bar").
This is, the first, empty, element is omitted. In XEmacs, the first
element is not omitted.
(defalias 'tramp-compat-split-string #[(string pattern) "\302\303\304 \"\"\207" [string pattern delete "" split-string] 5 (#$ . 11262)])
#@76 Returns t if system process PROCESS-NAME is running for `user-login-name'.
(defalias 'tramp-compat-process-running-p #[(process-name) ";\205=\306\307!\203 \310\307!\204 \311\307!\205=\307\211\"\207\306\312!\203\202 \306\313!\203\202 \314\310\312!\2046 \311\312!\2058 \312 \314\211\203} @\310\313!\204N \311\313!\205Q \313\n! \315\316\f\"A\317 \230\203u \315\305\f\"A\211 \205o \320\321\322
!P\")\203u \323) A\211\204? \314 +\207\324-!\203\314 .\325\326!\203\233 \327\326\330N@!\206\306\331!\203\262 \310\331!\204\255 \311\331!\205\331 \202\332\333!\211 /\205\277 \334/!)\203\313 \335\332\333!!\202\332\336!\211 /\205\330 \334/!)\203\344 \335\332\336!!\202\332\337!\211 /\205\361 \334/!)\203\375 \335\332\337!!\202\340\341!\203 \335\341!\202\342\343!\210\335\344!)\202-\332\345!\314 0 -\346\345\347\"\210\317 \350\351\352\353\"!\354\"\235\2035\323\346\3450\"\210 +\207" [process-name result pid --dolist-tail-- attributes comm fboundp w32-window-exists-p subrp functionp list-system-processes process-attributes nil assoc user user-login-name string-match "^" regexp-quote t tramp-tramp-file-p boundp temporary-file-directory eval standard-value temp-directory getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" "UNIX95" setenv "1" tramp-compat-split-string shell-command-to-string format "ps -C %s -o user=" "[ \f \n
]+" default-directory file-name-handler-alist d unix95] 7 (#$ . 11606)])
#@124 Return the value of PROCESS' PROPNAME property.
This is the last value stored with `(process-put PROCESS PROPNAME VALUE)'.
(defalias 'tramp-compat-process-get #[(process propname) "\3021 \303\304!\204 \305\304!\205 \304 \"0\207\210\306\207" [process propname (error) subrp process-get functionp nil] 3 (#$ . 13189)])
#@104 Change PROCESS' PROPNAME property to VALUE.
It can be retrieved with `(process-get PROCESS PROPNAME)'.
(defalias 'tramp-compat-process-put #[(process propname value) "\3031 \304\305!\204 \306\305!\205 \305 \n#0\207\210\307\207" [process propname value (error) subrp process-put functionp nil] 4 (#$ . 13517)])
#@166 Specify if query is needed for process when Emacs is exited.
If the second argument flag is non-nil, Emacs will query the user before
exiting if process is running.
(defalias 'tramp-compat-set-process-query-on-exit-flag #[(process flag) "\302\303!\203 \304\303!\204 \305\303!\205' \303 \"\207\304\306!\204# \305\306!\205' \306 \"\207" [process flag fboundp set-process-query-on-exit-flag subrp functionp process-kill-without-query] 3 (#$ . 13838)])
#@116 Return a coding system like CODING-SYSTEM but with given EOL-TYPE.
EOL-TYPE can be one of `dos', `unix', or `mac'.
(defalias 'tramp-compat-coding-system-change-eol-conversion #[(coding-system eol-type) "\302\303!\203 \304\303!\204 \305\303!\205R \303 \"\207\302\306!\203O \304\306!\204) \305\306!\205R \306 \307=\2035 \310\202M \311=\203? \312\202M \313=\203I \314\202M \315\316 \"\"\207\315\317!\207" [coding-system eol-type fboundp coding-system-change-eol-conversion subrp functionp subsidiary-coding-system dos crlf unix lf mac cr error "Unknown EOL-TYPE `%s', must be `dos', `unix', or `mac'" "Can't change EOL conversion -- is MULE missing?"] 5 (#$ . 14298)])
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\305!\204 \302\305\306\"\210\300\307!\204) \302\307\310\"\210\300\311!\2037 \302\312\311\"\210\202< \302\312\313\"\210\314\315\316\"\210\317\320!\207" [fboundp replace-regexp-in-string defalias tramp-compat-replace-regexp-in-string #[(regexp rep string &optional fixedcase literal subexp start) "G \206 \306\307\211\211\211 \310 \311\216 W\203n \312 #\203n \306\224\306\225\211 U\203: T^\312 \nO\211\"\210\313;\203Q \202X \314\306\f\"!\f% O
BB\n\211\202 O
B\315\316
\237\".\207" [string start me mb str matches 0 nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match replace-match match-string apply concat l save-match-data-internal regexp rep fixedcase literal subexp] 7 "Replace all matches for REGEXP with REP in STRING.\n\nReturn a new string containing the replacements.\n\nOptional arguments FIXEDCASE, LITERAL and SUBEXP are like the\narguments with the same names of function `replace-match'. If START\nis non-nil, start replacements at that index in STRING.\n\nREP is either a string used as the NEWTEXT arg of `replace-match' or a\nfunction. If it is a function, it is called with the actual text of each\nmatch, and its value is used as the replacement text. When REP is called,\nthe match data are the result of matching REGEXP against a substring\nof STRING.\n\nTo replace only the first match (if any), make REGEXP match up to \\'\nand replace a sub-expression, e.g.\n (replace-regexp-in-string \"\\\\(foo\\\\).*\\\\'\" \"bar\" \" foo foo\" nil nil 1)\n => \" bar foo\""] default-toplevel-value symbol-value format-message format delete-dups tramp-compat-delete-dups #[(list) "\301\302!\204\f \303\302!\205 \302\304\305#\207" [list subrp cl-delete-duplicates functionp (:test equal :from-end) nil] 4 "Destructively remove `equal' duplicates from LIST.\nStore the result in LIST and return it. LIST must be a proper list.\nOf several `equal' occurrences of an element in LIST, the first\none is kept."] add-hook tramp-unload-hook #[nil "\300\301\302\"\210\300\303\302\"\207" [unload-feature tramp-loaddefs force tramp-compat] 3] provide tramp-compat] 3)
Kontol Shell Bypass