;ELC
;;; Compiled
;;; in Emacs version 26.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 "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\207" [require auth-source advice cl-lib custom format-spec parse-time password-cache shell timer ucs-normalize trampver tramp-loaddefs] 2)
#@93 Call FUNCTION if it exists. Do not raise compiler warnings.
(fn FUNCTION &rest ARGUMENTS)
(defalias 'tramp-compat-funcall '(macro . #[385 "\300\301D\302\303BBDE\207" [when functionp with-no-warnings funcall] 8 (#$ . 712)]))
#@102 Return name of directory for temporary files.
It is the default value of `temporary-file-directory'.
(defalias 'tramp-compat-temporary-file-directory #[0 "\300\301\302N@!\207" [eval temporary-file-directory standard-value] 3 (#$ . 948)])
(put 'tramp-compat-temporary-file-directory 'byte-optimizer 'byte-compile-inline-expand)
#@114 Create a local temporary file (compat function).
Add the extension of F, if existing.
(fn F &optional DIR-FLAG)
(defalias 'tramp-compat-make-temp-file #[513 "\301\302\303J\304\305\306N@!\"\307\310\"\311#)\207" [file-name-handler-alist nil expand-file-name tramp-temp-name-prefix eval temporary-file-directory standard-value file-name-extension t make-temp-file] 8 (#$ . 1282)])
(byte-code "\300\301\302\303#\210\304\305\306\307!\203 \307\202 \310\"\207" [put tramp-compat-make-temp-file byte-optimizer byte-compile-inline-expand defalias tramp-compat-temporary-file-directory-function fboundp temporary-file-directory tramp-handle-temporary-file-directory] 4)
#@95 Returns t if system process PROCESS-NAME is running for `user-login-name'.
(fn PROCESS-NAME)
(defalias 'tramp-compat-process-running-p #[257 "\211;\205f \300\301!\203 \302\301!\205f \301\211\"\207\300\303!\205f \300\304!\205f \305\302\303!\205+ \303 \211\203a \211@\304!\306\307\"A\310 \230\203Y \306\311\"A\211\205Q \312\313\314!P\"\262\203Y \315\262\210A\266\202\202+ \262\262\207" [fboundp w32-window-exists-p functionp list-system-processes process-attributes nil assoc user user-login-name comm string-match "^" regexp-quote t] 10 (#$ . 1956)])
#@59 Signal a pilot error.
(fn VEC-OR-PROC FORMAT &rest ARGS)
(defalias 'tramp-compat-user-error #[642 "\300\301\302\303!\203
\303\202 \304%\207" [apply tramp-error fboundp user-error error] 9 (#$ . 2527)])
(byte-code "\300\301\302\303#\210\304\305!\204 \306\305\307\"\210\304\310!\203 \306\311\310\"\210\202* \306\311\312\"\210\300\311\302\303#\210\304\313!\2038 \306\314\313\"\210\202C \306\314\315\"\210\300\314\302\303#\210\304\316!\203Q \306\317\316\"\210\202\\ \306\317\320\"\210\300\317\302\303#\210\304\321!\203j \306\322\321\"\210\202u \306\322\323\"\210\300\322\302\303#\210\304\324!\203\203 \306\325\324\"\210\202\216 \306\325\326\"\210\300\325\302\303#\210\304\327!\203\234 \306\330\327\"\210\202\247 \306\330\331\"\210\300\330\302\303#\210\304\332!\203\265 \306\333\332\"\210\202\300 \306\333\334\"\210\300\333\302\303#\210\304\335!\204\313 \306\335\336\"\210\304\337!\203\331 \306\340\337\"\210\202\344 \306\340\341\"\210\300\340\302\303#\210\300\207" [put tramp-compat-user-error byte-optimizer byte-compile-inline-expand fboundp default-toplevel-value defalias symbol-value file-attribute-type tramp-compat-file-attribute-type #[257 "\211@\207" #1=[] 2 "The type field in ATTRIBUTES returned by `file-attributes'.\nThe value is either t for directory, string (name linked to) for\nsymbolic link, or nil.\n\n(fn ATTRIBUTES)"] file-attribute-link-number tramp-compat-file-attribute-link-number #[257 "\211A@\207" #1# 2 "Return the number of links in ATTRIBUTES returned by `file-attributes'.\n\n(fn ATTRIBUTES)"] file-attribute-user-id tramp-compat-file-attribute-user-id #[257 "\3008\207" [2] 3 "The UID field in ATTRIBUTES returned by `file-attributes'.\nThis is either a string or a number. If a string value cannot be\nlooked up, a numeric value, either an integer or a float, is\nreturned.\n\n(fn ATTRIBUTES)"] file-attribute-group-id tramp-compat-file-attribute-group-id #[257 "\3008\207" [3] 3 "The GID field in ATTRIBUTES returned by `file-attributes'.\nThis is either a string or a number. If a string value cannot be\nlooked up, a numeric value, either an integer or a float, is\nreturned.\n\n(fn ATTRIBUTES)"] file-attribute-modification-time tramp-compat-file-attribute-modification-time #[257 "\3008\207" [5] 3 "The modification time in ATTRIBUTES returned by `file-attributes'.\nThis is the time of the last change to the file's contents, and\nis a list of integers (HIGH LOW USEC PSEC) in the same style\nas (current-time).\n\n(fn ATTRIBUTES)"] file-attribute-size tramp-compat-file-attribute-size #[257 "\3008\207" [7] 3 "The size (in bytes) in ATTRIBUTES returned by `file-attributes'.\nThis is a floating point number if the size is too large for an integer.\n\n(fn ATTRIBUTES)"] file-attribute-modes tramp-compat-file-attribute-modes #[257 "\3008\207" [8] 3 "The file modes in ATTRIBUTES returned by `file-attributes'.\nThis is a string of ten letters or dashes as in ls -l.\n\n(fn ATTRIBUTES)"] format-message format directory-name-p tramp-compat-directory-name-p #[257 "\211G\301\302V\203 SH\262\211\303U\206 \304>\205 \211\305U\207" [system-type 46 0 47 (windows-nt ms-dos) 92] 5 "Return non-nil if NAME ends with a directory separator character.\n\n(fn NAME)"]] 4)
#@48 The error symbol for the `file-missing' error.
(defconst tramp-file-missing (byte-code "\300\301N\203 \300\207\302\207" [file-missing error-conditions file-error] 2) (#$ . 5753))
(byte-code "\300\301\302\"\210\303\304!\203 \305\306\304\"\210\202 \305\306\307\"\210\303\310!\203& \305\311\310\"\210\202+ \305\311\312\"\210\303\313!\2039 \305\314\313\"\210\202> \305\314\315\"\210\300\207" [add-hook tramp-unload-hook #[0 "\300\301\302\"\210\300\303\302\"\207" [unload-feature tramp-loaddefs force tramp-compat] 3] fboundp file-name-quoted-p defalias tramp-compat-file-name-quoted-p #[257 "\300\301\302\303\"\206\n \"\207" [string-match "^/:" file-remote-p localname] 6 "Whether NAME is quoted with prefix \"/:\".\nIf NAME is a remote file name, check the local part of NAME.\n\n(fn NAME)"] file-name-quote tramp-compat-file-name-quote #[257 "\211\300\301\302!\"\262\203
\207\303!\301\303\304\"\206 Q\207" [string-prefix-p #1="/:" file-local-name file-remote-p localname] 6 "Add the quotation prefix \"/:\" to file NAME.\nIf NAME is a remote file name, the local part of NAME is quoted.\n\n(fn NAME)"] file-name-unquote tramp-compat-file-name-unquote #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\"\206 \211\312\313\314!\"\262\2035 \315G\316U\203. \317\202/ \320\321\322$\262\310!P\262)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 file-remote-p localname string-prefix-p #1# file-local-name replace-match 2 "/" "" nil t] 8 "Remove quotation prefix \"/:\" from file NAME.\nIf NAME is a remote file name, the local part of NAME is unquoted.\n\n(fn NAME)"]] 3)
#@40 Return proper value of `tramp-syntax'.
(defalias 'tramp-compat-tramp-syntax #[0 "\301\267\202\n \302\207\303\207\207" [tramp-syntax #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ftp 6 sep 8)) default separate] 2 (#$ . 7405)])
(put 'tramp-compat-tramp-syntax 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'tramp-compat-tramp-file-name-slots '(macro . #[0 "\300\301!\203 \302\207\303\207" [fboundp cl-struct-slot-info (cdr (mapcar 'car (cl-struct-slot-info 'tramp-file-name))) (cdr (mapcar 'car (get 'tramp-file-name 'cl-struct-slots)))] 2]))
(provide 'tramp-compat)
|