;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; 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) (#$ . 191)) (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] "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] "File which keeps connection history for Tramp connections." file] 10) #@50 Whether persistent cache data have been changed. (defvar tramp-cache-data-changed nil (#$ . 1203)) #@52 The symbol marking undefined hash keys and values. (defconst tramp-cache-undefined 'undef (#$ . 1308)) #@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 (#$ . 1418)]) #@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\273A\262\333\262\334\335\n\n\n\n\257\3361f X\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 (#$ . 2165)]) (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\375r\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 (#$ . 4131)]) (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\361r\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 (#$ . 5826)]) #@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 (#$ . 7262)]) #@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\362r\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 (#$ . 8338)]) #@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\306\211?\205\307!\211\211?\205\310\311\307!\")\266\202\2032\211G\312U\203,\313\2020\211\312\306O\262\314!P)\266\203\262\315\316C\"\317\320\306$\321\322C\3231\346 X\205\340\324X\203\206\n\204\206\325\326\327U\203l\330\202\201\331U\203v\330\202\201\312U\203\200\332\202\201\333P#\210 \334Y\205\340\327\331U\203\300\3351\277r\336!\203\245\337!\202\251\340\341\"q\210\342P\262\343\344 C\"\211\262)0\210\202\300\210\336!\203\314\345\346\"\262)\242 >\205\340\325\347\350\351\"P$0\266\202\350\266\f\306C\352\353\354\"\"\210\211\242\237\266\202\211\203H\211@\211\242 >\203A\211\242 >\204\355\356\357D\"\210\3608;\203A\361!\242 >\204+\355\356\357D\"\210\3608\306\362\363#)\266\203\203A\364\f\"\210A\266\202\202\370\210\211;\203[\316!\230\204[\365\"\210\366\"\207" [file-name-handler-alist tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags tramp-cache-data inhibit-changing-match-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 regexp-quote t string-match remhash tramp-flush-directory-properties tramp-flush-file-upper-properties] 14 (#$ . 9849)]) #@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 (#$ . 11664)]) (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 "\242>\2038\304!\262\242>\204\305\306\307D\"\210\310\233\211\311\240\266\242>\2040\305\306\307D\"\210\312\233\211\311\240\266\313!\314!\203I\315 #\202J \311 =\204f\316!\203`\317!\203f\262\320\262\312\321E\3221 \nX\205\323X\203\251 \204\251\324\325\326U\203\217\327\202\244\330U\203\231\327\202\244\331U\203\243\332\202\244\333P#\210\n\334Y\205\326\330U\203\343\3351\342r\316!\203\310\336!\202\314\337\340\"q\210\341P\262\342\343 C\"\211\262)0\210\202\343\210\316!\203\357\344\345\"\262)\242>\205\324\346\347\350\"P$0\266\202 \266\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-verbose tramp-inhibit-progress-reporter copy-tramp-file-name signal wrong-type-argument tramp-file-name 6 nil 7 tramp-get-hash-table hash-table-p gethash processp process-live-p t "%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 (#$ . 13022)]) #@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 "\242>\2038\304!\262\242>\204\305\306\307D\"\210\310\233\211\311\240\266\242>\2040\305\306\307D\"\210\312\233\211\311\240\266\313!\211\203E\314#\210\210 \206R\242>\205R\315\312\316D\3171\361\nX\205\355\320X\203\223 \204\223\321\322\323U\203y\324\202\216\325U\203\203\324\202\216\326U\203\215\327\202\216\330P#\210\n\331Y\205\355\323\325U\203\315\3321\314r\333!\203\262\334!\202\266\335\336\"q\210\337P\262\340\341 C\"\211\262)0\210\202\315\210\333!\203\331\342\343\"\262)\242>\205\355\321\344\345\346\"P$0\266\207\266\207" [cl-struct-tramp-file-name-tags tramp-cache-data-changed tramp-verbose tramp-inhibit-progress-reporter copy-tramp-file-name signal wrong-type-argument tramp-file-name 6 nil 7 tramp-get-hash-table puthash t "%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 (#$ . 14538)]) #@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 (#$ . 16027)]) #@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 "\242>\2038\304!\262\242>\204\305\306\307D\"\210\310\233\211\311\240\266\242>\2040\305\306\307D\"\210\312\233\211\311\240\266\313!\211\203D\314\"\210\210 \206Q\242>\205Q\315\312\316C\3171\355\nX\205\353\320X\203\221 \204\221\321\322\323U\203w\324\202\214\325U\203\201\324\202\214\326U\203\213\327\202\214\330P#\210\n\331Y\205\353\323\325U\203\313\3321\312r\333!\203\260\334!\202\264\335\336\"q\210\337P\262\340\341 C\"\211\262)0\210\202\313\210\333!\203\327\342\343\"\262)\242>\205\353\321\344\345\346\"P$0\207\266\311\207" [cl-struct-tramp-file-name-tags tramp-cache-data-changed tramp-verbose tramp-inhibit-progress-reporter copy-tramp-file-name signal wrong-type-argument tramp-file-name 6 nil 7 tramp-get-hash-table remhash t "%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) # "] 12 (#$ . 16423)]) #@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 "\211\242>\2038\305!\262\211\242>\204\306\307\310D\"\210\311\233\211\312\240\266\211\242>\2040\306\307\310D\"\210\313\233\211\312\240\266\211\313\314\315 \"\211\205T\211\312C\316\317\320\"\"\210\211\242\237\266\202\262D\3211\361\nX\205\353\322X\203\221 \204\221\323\324\325U\203w\326\202\214\327U\203\201\326\202\214\330U\203\213\331\202\214\332P#\210\n\333Y\205\353\325\327U\203\313\3341\312r\335!\203\260\336!\202\264\337\340\"q\210\341P\262\342\343 C\"\211\262)0\210\202\313\210\335!\203\327\344\345\"\262)\242>\205\353\323\346\347\350\"P$0\266\202\363\266\f\206\377\211\242>\205\377\351\352 \"\207" [cl-struct-tramp-file-name-tags tramp-cache-data tramp-verbose tramp-inhibit-progress-reporter tramp-cache-data-changed copy-tramp-file-name signal wrong-type-argument tramp-file-name 6 nil 7 "%s %s" gethash 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 (#$ . 17849)]) #@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\264\320!\204\251\321\322!\203\261\322!\203\261\315\211!!\202\264\315!#\300\211\242\203\303\300\242\323Q\202\304\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 functionp mutexp " "] 11 "\n\n(fn KEY VALUE)"]] 6 (#$ . 19346)]) #@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 (#$ . 20380)]) #@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 (#$ . 20969)]) (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 (#$ . 22765)]) #@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) (#$ . 23552)) (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\2260\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)