| Server IP : 217.160.0.212 / Your IP : 216.73.216.15 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/net/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\"\207" [require tramp autoload time-stamp-string "time-stamp"] 3) #@41 Hash table for remote files properties. (defvar tramp-cache-data (make-hash-table :test 'equal) (#$ . 188)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\312\317&\207" [custom-declare-variable tramp-connection-properties funcall function #[0 "\300\207" [nil] 1 #1=""] "List of static connection properties.\nEvery entry has the form (REGEXP PROPERTY VALUE). The regexp\nmatches remote file names. It can be nil. PROPERTY is a string,\nand VALUE the corresponding value. They are used, if there is no\nmatching entry for PROPERTY in `tramp-cache-data'. For more\ndetails see the info pages." :group tramp :version "24.4" :type (repeat (list (choice :tag "File Name regexp" regexp (const nil)) (choice :tag " Property" string) (choice :tag " Value" sexp))) tramp-persistency-file-name #[0 "\300\301\302!!\207" [expand-file-name locate-user-emacs-file "tramp"] 3 #1#] "File which keeps connection history for Tramp connections." file] 10) #@50 Whether persistent cache data have been changed. (defvar tramp-cache-data-changed nil (#$ . 1210)) #@52 The symbol marking undefined hash keys and values. (defconst tramp-cache-undefined 'undef (#$ . 1315)) #@227 Return the hash table for KEY. If it doesn't exist yet, it is created and initialized with matching entries of `tramp-connection-properties'. If KEY is `tramp-cache-undefined', don't create anything, and return nil. (fn KEY) (defalias 'tramp-get-hash-table #[257 "\211=?\205R \305 \"\206R \306\307\310\311\" #\242\n>\203O \211\203N \211@\211@\206* \312\313\314\315#\316\317\320#)\266\203\203G \321A@\3228#\210A\266\202\202 \210\211\262\207" [tramp-cache-undefined tramp-cache-data cl-struct-tramp-file-name-tags tramp-connection-properties inhibit-changing-match-data gethash puthash make-hash-table :test equal "" tramp-make-tramp-file-name noloc nohop nil t string-match tramp-set-connection-property 2] 11 (#$ . 1425)]) #@116 Get the PROPERTY of FILE from the cache context of KEY. Return DEFAULT if not set. (fn KEY FILE PROPERTY DEFAULT) (defalias 'tramp-get-file-property #[1028 "\305\211?\205 \306!\211\211?\205 \307\310\306!\")\266\202\2032 \211G\311U\203, \312\2020 \211\311\305O\262\313!P)\266\203\262\314!\262\242 >\204P \315\316\317D\"\210\320\233\211\321\322C\"\240\266\242 >\204l \315\316\317D\"\210\323\233\211\305\240\266\324!\325!\205\201 \326\"\211:\205\213 \327\330@\"\305:\203\273 \n\203\264 \n\250\203\247 \331\305\332@\n\"\"\204\264 \n:\203\273 \331\n@\"\203\273 A\262\333\262\334\335\n\n\n\n\257\3361fX\205`\337X\203\f\204\340\341\342U\203\354 \343\202\344U\203\366 \343\202\311U\203 \345\202\346P#\210\347Y\205`\342\344U\203@\3501?r\351!\203%\352!\202)\353\354\"q\210\355P\262\356\357 C\"\211\262)0\210\202@\210\351!\203L\360\361\"\262)\242 >\205`\340\362\363\364\"P$0\266\202h\266\365Y\203\214\366\367P!\370!\203\205\211J\247\203\205\211J\206\206\342TL\266\207" [file-name-handler-alist cl-struct-tramp-file-name-tags remote-file-name-inhibit-cache tramp-verbose tramp-inhibit-progress-reporter nil file-local-name string-prefix-p "/:" 2 "/" file-remote-p copy-tramp-file-name signal wrong-type-argument tramp-file-name 6 tramp-run-real-handler directory-file-name 7 tramp-get-hash-table hash-table-p gethash format-time-string "%T" time-less-p time-add t 8 "%s %s %s; inhibit: %s; cache used: %s; cached at: %s" (error) 3 apply message 0 "" 1 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " 10 intern "tramp-cache-get-count-" boundp] 19 (#$ . 2172)]) (add-hook 'tramp-cache-unload-hook #[0 "\301\302\"\211\205 \211@\303\"\210A\266\202\202 \207" [obarray all-completions "tramp-cache-get-count-" unintern] 5]) #@109 Set the PROPERTY of FILE to VALUE, in the cache context of KEY. Return VALUE. (fn KEY FILE PROPERTY VALUE) (defalias 'tramp-set-file-property #[1028 "\304\211?\205 \305!\211\211?\205 \306\307\305!\")\266\202\2032 \211G\310U\203, \311\2020 \211\310\304O\262\312!P)\266\203\262\313!\262\242 >\204P \314\315\316D\"\210\317\233\211\320\321C\"\240\266\242 >\204l \314\315\316D\"\210\322\233\211\304\240\266\323!\324\325 B#\210\326\327E\3301$\nX\205\331X\203\304 \204\304 \332\333\334U\203\252 \335\202\277 \336U\203\264 \335\202\277 \310U\203\276 \337\202\277 \340P#\210\n\341Y\205\334\336U\203\376 \3421\375 r\343!\203\343 \344!\202\347 \345\346\"q\210\347P\262\350\351 C\"\211\262)0\210\202\376 \210\343!\203\n\352\353\"\262)\242 >\205\332\354\355\356\"P$0\266\202&\266\n\357Y\203I\360\361P!\362!\203B\211J\247\203B\211J\206C\334TL\266\207" [file-name-handler-alist cl-struct-tramp-file-name-tags tramp-verbose tramp-inhibit-progress-reporter nil file-local-name string-prefix-p "/:" 2 "/" file-remote-p copy-tramp-file-name signal wrong-type-argument tramp-file-name 6 tramp-run-real-handler directory-file-name 7 tramp-get-hash-table puthash current-time 8 "%s %s %s" (error) 3 apply message 0 "" 1 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " 10 intern "tramp-cache-set-count-" boundp] 15 (#$ . 4138)]) (add-hook 'tramp-cache-unload-hook #[0 "\301\302\"\211\205 \211@\303\"\210A\266\202\202 \207" [obarray all-completions "tramp-cache-set-count-" unintern] 5]) #@78 Remove PROPERTY of FILE in the cache context of KEY. (fn KEY FILE PROPERTY) (defalias 'tramp-flush-file-property #[771 "\304\211?\205 \305!\211\211?\205 \306\307\305!\")\266\202\2032 \211G\310U\203, \311\2020 \211\310\304O\262\312!P)\266\203\262\313!\262\242 >\204O \314\315\316D\"\210\317\233\211\320\321C\"\240\266\242 >\204i \314\315\316D\"\210\322\233\211\304\240\266\323\324!\"\210\325\326D\3271\nX\205\330X\203\270 \204\270 \331\332\333U\203\236 \334\202\263 \335U\203\250 \334\202\263 \310U\203\262 \336\202\263 \337P#\210\n\340Y\205\333\335U\203\362 \3411\361 r\342!\203\327 \343!\202\333 \344\345\"q\210\346P\262\347\350 C\"\211\262)0\210\202\362 \210\342!\203\376 \351\352\"\262)\242 >\205\331\353\354\355\"P$0\266\202\266\n\356Y\205*\357\360P!\361!\262\207" [file-name-handler-alist cl-struct-tramp-file-name-tags tramp-verbose tramp-inhibit-progress-reporter nil file-local-name string-prefix-p "/:" 2 "/" file-remote-p copy-tramp-file-name signal wrong-type-argument tramp-file-name 6 tramp-run-real-handler directory-file-name 7 remhash tramp-get-hash-table 8 "%s %s" (error) 3 apply message 0 "" 1 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " 10 intern "tramp-cache-set-count-" makunbound] 13 (#$ . 5833)]) #@66 Remove some properties of FILE's upper directory. (fn KEY FILE) (defalias 'tramp-flush-file-upper-properties #[514 "\303!\205\261 \304\305!!\211\306\211?\205 \307!\211\211?\205 \310\311\307!\")\266\202\203= \211G\312U\2037 \313\202; \211\312\306O\262\314!P)\266\203\262\315!\262\242 >\204Z \316\317\320D\"\210\321\233\211\240\266\242 >\204p \316\317\320D\"\210\322\233\211\306\240\266\323!\306C\324\325\326\"\"\210\211\242\237\266\202\211\205\255 \211@\327\306\330\331#)\266\203\203\246 \332#\210A\266\202\202\212 \262\262\207" [file-name-handler-alist cl-struct-tramp-file-name-tags inhibit-changing-match-data file-name-absolute-p directory-file-name file-name-directory nil file-local-name string-prefix-p "/:" 2 "/" file-remote-p copy-tramp-file-name signal wrong-type-argument tramp-file-name 6 7 tramp-get-hash-table maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"] "^\\(directory-\\|file-name-all-completions\\|file-entries\\)" t string-match tramp-flush-file-property] 12 (#$ . 7269)]) #@75 Remove all properties of FILE in the cache context of KEY. (fn KEY FILE) (defalias 'tramp-flush-file-properties #[514 "\305\306C\"\307\310\311$\311\211?\205 \312!\211\211?\205 \313\314\312!\")\266\202\203= \211G\315U\2037 \316\202; \211\315\311O\262\317!P)\266\203\262\320!\262\242 >\204[ \321\322\323D\"\210\324\233\211\240\266\242 >\204r \321\322\323D\"\210\325\233\211\311\240\266\326\327C\3301\nX\205\331X\203\271 \204\271 \332\333\334U\203\237 \335\202\264 \336U\203\251 \335\202\264 \315U\203\263 \337\202\264 \340P#\210\n\341Y\205\334\336U\203\363 \3421\362 r\343!\203\330 \344!\202\334 \345\346\"q\210\347P\262\350\351 C\"\211\262)0\210\202\363 \210\343!\203\377 \352\353\"\262)\242 >\205\332\354\355\356\"P$0\266\202\266\357\f\"\210\211;\2032\306!\230\2042\360\"\210\361\"\207" [file-name-handler-alist cl-struct-tramp-file-name-tags tramp-verbose tramp-inhibit-progress-reporter tramp-cache-data tramp-run-real-handler directory-file-name tramp-get-file-property "file-truename" nil file-local-name string-prefix-p "/:" 2 "/" file-remote-p copy-tramp-file-name signal wrong-type-argument tramp-file-name 6 7 8 "%s" (error) 3 apply message 0 "" 1 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " remhash tramp-flush-file-properties tramp-flush-file-upper-properties] 14 (#$ . 8345)]) #@140 Remove all properties of DIRECTORY in the cache context of KEY. Remove also properties of all files in subdirectories. (fn KEY DIRECTORY) (defalias 'tramp-flush-directory-properties #[514 "\211\305\211?\205 \306!\211\211?\205 \307\310\306!\")\266\202\2032 \211G\311U\203, \312\2020 \211\311\305O\262\313!P)\266\203\262\314\315C\"\316\317\305$\320\321C\3221\346 X\205\340 \323X\203\206 \n\204\206 \324\325\326U\203l \327\202\201 \330U\203v \327\202\201 \311U\203\200 \331\202\201 \332P#\210 \333Y\205\340 \326\330U\203\300 \3341\277 r\335!\203\245 \336!\202\251 \337\340\"q\210\341P\262\342\343 C\"\211\262)0\210\202\300 \210\335!\203\314 \344\345\"\262)\242>\205\340 \324\346\347\350\"P$0\266\202\350 \266\f\305C\351\352\353\"\"\210\211\242\237\266\202\211\203=\211@\211\242>\2036\211\242>\204\354\355\356D\"\210\3578;\2036\360\242>\204*\354\355\356D\"\210\3578\"\2036\361\f\"\210A\266\202\202\370 \210\211;\203P\315!\230\204P\362\"\210\363\"\207" [file-name-handler-alist tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags tramp-cache-data nil file-local-name string-prefix-p "/:" 2 "/" file-remote-p tramp-run-real-handler directory-file-name tramp-get-file-property "file-truename" 8 "%s" (error) 3 apply message 0 "" 1 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"] signal wrong-type-argument tramp-file-name 6 tramp-compat-string-search remhash tramp-flush-directory-properties tramp-flush-file-upper-properties] 14 (#$ . 9856)]) #@101 Flush all Tramp cache properties from `buffer-file-name'. This is suppressed for temporary buffers. (defalias 'tramp-flush-file-function #[0 "\304 \305\306\"\216\307 ?\206 \310\307 \311\312\313#)\266\203?\205\276 \314 ;\203* \314 \202+ \315\316!\205\273 \317!\211\242>\204D \320\321\322D\"\210\211A@\242>\204U \320\321\322D\"\210\3238\242>\204f \320\321\322D\"\210\3248\242>\204x \320\321\322D\"\210\3258\242>\204\212 \320\321\322D\"\210\3268\242>\204\234 \320\321\322D\"\210\3278\242>\204\260 \320\321\322 D\"\210\3308\331\"\266\210)\262)\207" [inhibit-changing-match-data default-directory tramp-verbose cl-struct-tramp-file-name-tags match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] buffer-name "^\\( \\|\\*\\)" nil t string-match buffer-file-name 0 tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-properties] 13 (#$ . 11617)]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\306\"\207" [add-hook before-revert-hook tramp-flush-file-function eshell-pre-command-hook kill-buffer-hook tramp-cache-unload-hook #[0 "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\207" [remove-hook before-revert-hook tramp-flush-file-function eshell-pre-command-hook kill-buffer-hook] 3]] 3) #@348 Get the named PROPERTY for the connection. KEY identifies the connection, it is either a process or a `tramp-file-name' structure. A special case is nil, which is used to cache connection properties of the local machine. If KEY is `tramp-cache-undefined', or if the value is not set for the connection, return DEFAULT. (fn KEY PROPERTY DEFAULT) (defalias 'tramp-get-connection-property #[771 "\304!\262\305!\306!\203 \307#\202 \310=\2043 \311!\203- \312!\2033 \262\313\262\314\315E\3161\326 X\205\320 \317X\203v \n\204v \320\321\322U\203\\ \323\202q \324U\203f \323\202q \325U\203p \326\202q \327P#\210 \330Y\205\320 \322\324U\203\260 \3311\257 r\311!\203\225 \332!\202\231 \333\334\"q\210\335P\262\336\337 C\"\211\262)0\210\202\260 \210\311!\203\274 \340\341\"\262)\242>\205\320 \320\342\343\344\"P$0\266\202\330 \266\207" [tramp-cache-undefined tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags tramp-file-name-unify tramp-get-hash-table hash-table-p gethash nil processp process-live-p t 7 "%s %s; cache used: %s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # "] 17 (#$ . 12975)]) #@390 Set the named PROPERTY of a connection to VALUE. KEY identifies the connection, it is either a process or a `tramp-file-name' structure. A special case is nil, which is used to cache connection properties of the local machine. If KEY is `tramp-cache-undefined', nothing is set. PROPERTY is set persistent when KEY is a `tramp-file-name' structure. Return VALUE. (fn KEY PROPERTY VALUE) (defalias 'tramp-set-connection-property #[771 "\304!\262\305!\211\203 \306#\210\210\206 \242 >\205 \307\310\311D\3121\276 \nX\205\272 \313X\203` \204` \314\315\316U\203F \317\202[ \320U\203P \317\202[ \321U\203Z \322\202[ \323P#\210\n\324Y\205\272 \316\320U\203\232 \3251\231 r\326!\203 \327!\202\203 \330\331\"q\210\332P\262\333\334 C\"\211\262)0\210\202\232 \210\326!\203\246 \335\336\"\262)\242 >\205\272 \314\337\340\341\"P$0\266\207\266\207" [tramp-cache-data-changed cl-struct-tramp-file-name-tags tramp-verbose tramp-inhibit-progress-reporter tramp-file-name-unify tramp-get-hash-table puthash t 7 "%s %s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # "] 13 (#$ . 14307)]) #@256 Check whether named PROPERTY of a connection is defined. KEY identifies the connection, it is either a process or a `tramp-file-name' structure. A special case is nil, which is used to cache connection properties of the local machine. (fn KEY PROPERTY) (defalias 'tramp-connection-property-p #[514 "\301#=?\207" [tramp-cache-undefined tramp-get-connection-property] 6 (#$ . 15593)]) #@330 Remove the named PROPERTY of a connection identified by KEY. KEY identifies the connection, it is either a process or a `tramp-file-name' structure. A special case is nil, which is used to cache connection properties of the local machine. PROPERTY is set persistent when KEY is a `tramp-file-name' structure. (fn KEY PROPERTY) (defalias 'tramp-flush-connection-property #[514 "\304!\262\305!\211\203 \306\"\210\210\206 \242 >\205 \307\310\311C\3121\272 \nX\205\270 \313X\203^ \204^ \314\315\316U\203D \317\202Y \320U\203N \317\202Y \321U\203X \322\202Y \323P#\210\n\324Y\205\270 \316\320U\203\230 \3251\227 r\326!\203} \327!\202\201 \330\331\"q\210\332P\262\333\334 C\"\211\262)0\210\202\230 \210\326!\203\244 \335\336\"\262)\242 >\205\270 \314\337\340\341\"P$0\207\266\342\207" [tramp-cache-data-changed cl-struct-tramp-file-name-tags tramp-verbose tramp-inhibit-progress-reporter tramp-file-name-unify tramp-get-hash-table remhash t 7 "%s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " nil] 12 (#$ . 15989)]) #@231 Remove all properties identified by KEY. KEY identifies the connection, it is either a process or a `tramp-file-name' structure. A special case is nil, which is used to cache connection properties of the local machine. (fn KEY) (defalias 'tramp-flush-connection-properties #[257 "\305!\262\211\306\307\310\"\211\205! \211\311C\312\313\314\"\"\210\211\242\237\266\202\262D\3151\276 X\205\270 \316X\203^ \n\204^ \317\320\321U\203D \322\202Y \323U\203N \322\202Y \324U\203X \325\202Y \326P#\210 \327Y\205\270 \321\323U\203\230 \3301\227 r\331!\203} \332!\202\201 \333\334\"q\210\335P\262\336\337 C\"\211\262)0\210\202\230 \210\331!\203\244 \340\341\"\262)\242>\205\270 \317\342\343\344\"P$0\266\202\300 \266\f\206\314 \211\242>\205\314 \345\346\"\207" [tramp-cache-data tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags tramp-cache-data-changed tramp-file-name-unify 7 "%s %s" gethash nil maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"] (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " t remhash] 12 (#$ . 17216)]) #@37 Print hash table TABLE. (fn TABLE) (defalias 'tramp-cache-print #[257 "\300!\205 \301C\302\303\304\"\"\210\211\242\262\207" [hash-table-p nil maphash make-closure #[514 "\242 >\203d \302\303\304\"\211\203c \211@\242 >\204 \305\306\307D\"\210\310\307\"8;\203\\ \242 >\2049 \305\306\307D\"\210\310\307\"\233\211\311\242 >\204Q \305\306\307 D\"\210\310\307\"8!\240\266A\266\202\202 \210;\203n \311!\262\211;\203x \311!\262\312\313\314!\203\210 \315\211!!\202\213 \315!\316!\203\227 \317!\202\250 \320!\203\245 \315\211!!\202\250 \315!#\300\211\242\203\267 \300\242\321Q\202\270 \240\207" [V0 cl-struct-tramp-file-name-tags mapcar car ((method nil) (user nil) (domain nil) (host nil) (port nil) (localname nil) (hop nil)) signal wrong-type-argument tramp-file-name cl-struct-slot-offset substring-no-properties format "(%s %s)" processp prin1-to-string hash-table-p tramp-cache-print bufferp " "] 11 "\n\n(fn KEY VALUE)"]] 6 (#$ . 18504)]) #@72 Return all known `tramp-file-name' structs according to `tramp-cache'. (defalias 'tramp-list-connections #[0 "\302\303\304\305\306 \304C\307\310\311\"\"\210\211\242\237\266\202\"\")\207" [tramp-verbose tramp-cache-data 0 delq nil mapcar #[257 "\211\242>\205$ \211\242>\204 \301\302\303D\"\210\3048?\205$ \305\306\"\205$ \211\207" [cl-struct-tramp-file-name-tags signal wrong-type-argument tramp-file-name 6 tramp-connection-property-p "process-buffer"] 5 "\n\n(fn KEY)"] maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"]] 10 (#$ . 19488)]) #@81 Write persistent connection properties into file `tramp-persistency-file-name'. (defalias 'tramp-dump-connection-properties #[0 "\3061v \307!\205t \310!\311U?\205t \205t \n;\205t \312!\313\211\314\315\316\"\"\210\n\317\320\321\"\315\322\"\216r\211q\210\323\324\325\326!\n#\327\330\317\331\321\"\332\216 \333\334\323\335\336\n!\"!!\210)r q\210\337 +\261)rq\210\340\313\211\313\311%\210*\266\202*\2620\207\210\313\207" [tramp-cache-data tramp-cache-data-changed tramp-persistency-file-name print-level print-length standard-output (error) hash-table-p hash-table-count 0 copy-hash-table nil maphash make-closure #[514 "\242 >\203T \303!\203T \242 >\204 \304\305\306D\"\210A@\n\230\204T \242 >\2041 \304\305\306D\"\210\3078\204T \310\311\"\204T \310\312\"\204T \313\314\"\210\313\315\"\210\313\316\"\207\313\300\"\207" [V0 cl-struct-tramp-file-name-tags tramp-archive-method hash-table-p signal wrong-type-argument tramp-file-name 6 gethash "login-as" "started" remhash "process-name" "process-buffer" "first-password-request"] 6 "\n\n(fn KEY VALUE)"] generate-new-buffer " *temp file*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] format ";; -*- emacs-lisp -*- <%s %s>\n" time-stamp-string "%02y/%02m/%02d %02H:%02M:%02S" ";; Tramp connection history. Don't change this file.\n" ";; Run `M-x tramp-cleanup-all-connections' instead.\n\n" " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] pp read "(%s)" tramp-cache-print buffer-string write-region] 12 (#$ . 20077)]) (byte-code "\204 \301\302\303\"\210\301\304\305\"\207" [noninteractive add-hook kill-emacs-hook tramp-dump-connection-properties tramp-cache-unload-hook #[0 "\300\301\302\"\207" [remove-hook kill-emacs-hook tramp-dump-connection-properties] 3]] 3) #@215 Return a list of (user host) tuples allowed to access for METHOD. This function is added always in `tramp-get-completion-function' for all methods. Resulting data are derived from connection history. (fn METHOD) (defalias 'tramp-parse-connection-properties #[257 "\301\302\303\"\304C\305\302\306\"\"\210\211\242\237\266\202\"\207" [tramp-cache-data mapcar make-closure #[257 "\211\242 >\205U \300\242 >\204 \302\303\304D\"\210A@\230\205U \211\242 >\204+ \302\303\304D\"\210\3058?\205U \211\242 >\204@ \302\303\304D\"\210\3068\242 >\204Q \302\303\304D\"\210\3078D\207" [V0 cl-struct-tramp-file-name-tags signal wrong-type-argument tramp-file-name 6 2 4] 6 "\n\n(fn KEY)"] nil maphash #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"]] 9 (#$ . 21873)]) #@50 Whether to read persistent data at startup time. (defvar tramp-cache-read-persistent-data (byte-code "\206 \207" [init-file-user site-run-file] 1) (#$ . 22660)) (byte-code ";\203\226 \306 !\307U\203\226 \n\203\226 \3101\211 \3111\200 \312\313\314\"r\211q\210\315\316\"\216\317!\210\320p!\307\321\211\211\211A\262\242\211\262\203q \211A\262\242\262\242\f>\2033 \211A\262\242\211\262\2033 \322@\"\204N \323\211A\262\242@#\210\202N )\266\321\211*\26200\210\202\226 0\324 !\266\202\226 \325\326\327!#\210\324 !\266\330\331\332\"\210\333\334!\207" [tramp-persistency-file-name tramp-cache-data tramp-cache-read-persistent-data tramp-verbose cl-struct-tramp-file-name-tags tramp-cache-data-changed hash-table-count 0 (error) (file-error) generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally read nil tramp-connection-property-p tramp-set-connection-property clrhash message "Tramp persistency file `%s' is corrupted: %s" error-message-string add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-cache force] 3] provide tramp-cache] 10)