JezK
Edit File: tramp-compat.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:54:11 2026 ;;; 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\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\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) "\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 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\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 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)