WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/net
Viewing File: /usr/share/emacs/24.3/lisp/net/tramp-compat.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:35 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/tramp-compat.el
;;; in Emacs version 24.3.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!\210\302\304!\210\302\305!\210\302\306!\210\302\307!\210\302\310\311\312#\204\"\302\313\311\312#\210\302\314\311\312#\210\302\315!\210\316\317!\2046\320\311!\210\316\321!\203H\322\311!\210\321\323\311!\210\324\311\207" [byte-compile-not-obsolete-var byte-compile-not-obsolete-vars require advice custom format-spec shell tramp-loaddefs password-cache nil noerror 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)] 4)
(defvar remote-file-name-inhibit-cache nil)
(defalias 'tramp-compat-funcall '(macro . #[(function &rest arguments) "\302\303\304D\305DE\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\300\312!\2047\302\312\313\"\210\314\315\316\"\204O\317\320\321\322\323$\210\324\320\323\"\210\325\326\327\"\210\300\330!\203]\302\331\330\"\210\202d\302\331\332\333B\"\210\300\334!\203r\302\335\334\"\210\202\205\302\335\332\336B\"\210\337\335\340\341#\210\337\335\342\343#\210\323\207" [fboundp set-buffer-multibyte defalias ignore file-remote-p #[(file &optional identification connected) "\303!\205\304\305!\204\306\305!\205\305\307	\n$\207" [file identification connected tramp-tramp-file-p subrp tramp-file-name-handler functionp file-remote-p] 5] 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] with-temp-message tramp-compat-with-temp-message macro #[(message &rest body) "\301B\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\313D\314\n\313D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 lisp-indent-function 2] 5)
#@37 Add highlighting KEYWORDS for MODE.
(defalias 'tramp-compat-font-lock-add-keywords #[(mode keywords &optional how) "\300\301\302\217\207" [nil (byte-code "\303\304!\204\f\305\304!\205\304	\n#\207" [mode keywords how subrp font-lock-add-keywords functionp] 4) ((error))] 3 (#$ . 3933)])
#@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 (#$ . 4230)])
(put 'tramp-compat-temporary-file-directory 'byte-optimizer 'byte-compile-inline-expand)
#@88 Create a temporary file (compat function).
Add the extension of FILENAME, if existing.
(defalias 'tramp-compat-make-temp-file #[(filename &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\211\336\337\217\210
,\207" [file-name-handler-alist d prefix filename 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 (byte-code "\304\305!\204\f\306\305!\205\305	\n#\304\207" [prefix dir-flag extension result subrp make-temp-file functionp] 4) ((error (byte-code "\300\301\302\217\204\300\207" [nil (byte-code "\304!	P\203\305\n!\210\202\306\307\310\n\310\311%\210\310\207" [prefix extension result dir-flag make-temp-name make-directory write-region "" nil silent] 6) ((file-already-exists t))] 3)))] 6 (#$ . 5222)])
(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 (#$ . 6682)])
(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\305!\203\306\207\307\310\245!\311\310\246!P\207" [i 0 error "Cannot convert negative number to octal" "Cannot convert non-integer to octal" zerop "0" tramp-compat-decimal-to-octal 8 number-to-string] 4 (#$ . 6973)])
#@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 (#$ . 7403)])
#@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\310\311\312\217\207" [id-format filename integer file-attributes tramp-tramp-file-p subrp tramp-file-name-handler functionp nil (byte-code "\302\303!\204\f\304\303!\205\303	\"\207" [filename id-format subrp file-attributes functionp] 3) ((wrong-number-of-arguments (file-attributes filename)))] 4 (#$ . 7692)])
#@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-selinux-context) "\203\306\307!\204\310\307!\2058\307	\n\f
&\207
\2032\306\307!\204*\310\307!\2058\307	\n\f
%\207\307	\n\f$\207" [preserve-selinux-context filename newname ok-if-already-exists keep-date preserve-uid-gid subrp copy-file functionp] 7 (#$ . 8233)])
#@45 Make a copy of DIRECTORY (compat function).
(defalias 'tramp-compat-copy-directory #[(directory newname &optional keep-time parents copy-contents) "\300\301\302\217\207" [nil (byte-code "\305\306!\204\f\307\306!\205\306	\n\f%\207" [directory newname keep-time parents copy-contents subrp copy-directory functionp] 6) ((error (byte-code "\305\306\"\206\305	\306\"\211\203\n\306	\f%\202d\307\310!!\307\310	!!\311	!\203=\312!\312	!\230\204=\310\312!	\"\311	!\204H\313	\f\"\210\314\315\316\317\320#\"\210\321	\322!\"\210\205d\323	\324\325!8\")\207" [directory newname handler keep-time parents find-file-name-handler copy-directory 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)))] 3 (#$ . 8689)])
#@55 Like `delete-file' for Tramp files (compat function).
(defalias 'tramp-compat-delete-file #[(filename &optional trash) "\300\301\302\217\207" [nil (byte-code "\302\303!\204\f\304\303!\205\303	\"\207" [filename trash subrp delete-file functionp] 3) ((wrong-number-of-arguments (byte-code "\303\301!\205\f\301J\205\f\304\n!)\207" [trash delete-by-moving-to-trash filename boundp delete-file] 2)))] 3 (#$ . 9738)])
#@60 Like `delete-directory' for Tramp files (compat function).
(defalias 'tramp-compat-delete-directory #[(directory &optional recursive) "\204\302	!\207\303\304\305\217\207" [recursive directory delete-directory nil (byte-code "\302\303!\204\f\304\303!\205\303	\"\207" [directory recursive subrp delete-directory functionp] 3) ((wrong-number-of-arguments (byte-code "\301\302!!\303!\204\304\305\306\307\310#\"\210\311!\207" [directory directory-file-name expand-file-name file-symlink-p mapc #[(file) "\302!@\303=\203\304	\"\207\305!\207" [file recursive file-attributes t tramp-compat-delete-directory delete-file] 3] directory-files full "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*" delete-directory] 6)))] 3 (#$ . 10164)])
#@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\313\n!\203;\314\315!\210\316\317\n\317V\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 zerop error "The increment can not be zero" nil 0] 5 (#$ . 10906)])
#@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 (#$ . 11436)])
#@227 Calls `call-process' on the local host.
This is needed because for some Emacs flavors Tramp has
defadvised `call-process' to behave like `process-file'.  The
Lisp error raised when PROGRAM is nil is trapped also, returning 1.
(defalias 'tramp-compat-call-process #[(program &optional infile destination display &rest args) "\306!\203\212\307\310\311!\203\312\311\313N@!\206\206\314\315!\203.\316\315!\204)\317\315!\205\206\315 \202\206\320\321!\211\2059\322\n!)\203E\323\320\321!!\202\206\320\324!\211\205P\322\n!)\203\\\323\320\324!!\202\206\320\325!\211\205g\322\n!)\203s\323\320\325!!\202\206\326\327!\203\323\327!\202\206\330\331!\210\323\332!)\202\213\333!\203\240\334\335\f
 &\202\241\336)\207" [default-directory file-name-handler-alist d program infile destination file-remote-p 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" executable-find apply call-process 1 display args] 7 (#$ . 11781)])
#@78 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\3450\"\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 file-remote-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 (#$ . 12965)])
#@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) "\300\301\302\217\207" [nil (byte-code "\302\303!\204\f\304\303!\205\303	\"\207" [process propname subrp process-get functionp] 3) ((error))] 3 (#$ . 14545)])
#@104 Change PROCESS' PROPNAME property to VALUE.
It can be retrieved with `(process-get PROCESS PROPNAME)'.
(defalias 'tramp-compat-process-put #[(process propname value) "\300\301\302\217\207" [nil (byte-code "\303\304!\204\f\305\304!\205\304	\n#\207" [process propname value subrp process-put functionp] 4) ((error))] 3 (#$ . 14895)])
#@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 (#$ . 15238)])
#@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!\205S\303	\"\207\302\306!\203P\304\306!\204)\305\306!\205S\306	\307=\2035\310\202N	\311=\203?\312\202N	\313=\203I\314\202N\315\316	\317#\"\207\315\320!\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 %s" "`dos', `unix', or `mac'" "Can't change EOL conversion -- is MULE missing?"] 6 (#$ . 15698)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[nil "\300\301\302\"\207" [unload-feature tramp-compat force] 3] provide tramp-compat] 3)
F1l3 Manager
