%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/net/ |
Current File : //usr/local/share/emacs/27.2/lisp/net/tramp-cache.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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\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) (#$ . 512)) (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 (#$ . 1524)) #@153 Return the hash table for KEY. If it doesn't exist yet, it is created and initialized with matching entries of `tramp-connection-properties'. (fn KEY) (defalias 'tramp-get-hash-table #[257 "\304\"\206K \305\306\307\310\"#\242 >\203H \n\211\203G \211@\211@\206# \311\312\313\314#\315\316\317#)\266\203\203@ \320A@\3218#\210A\266\202\202 \210\211\262\207" [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 (#$ . 1630)]) #@117 Get the PROPERTY of FILE from the cache context of KEY. Returns 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 \313\311\"\262\314!P)\266\203\262\315!\262\242 >\204P \316\317\320D\"\210\321\233\211\322\323C\"\240\266\242 >\204l \316\317\320D\"\210\324\233\211\305\240\266\325!\326!\205\201 \327\"\211:\203\261 \n\203\252 \n\250\203\235 \330\331 \332@\333\n!\"\"\204\252 \n:\203\261 \330\n@\"\203\261 \211A\262\202\264 \262\334\335E\3361XX\205T\f\203\367 \337X\203\367 \340\341\342U\203\335 \343\202\362 \344U\203\347 \343\202\362 \311U\203\361 \345\202\362 \346P#\210\347Y\205T\342\344U\2034\3501/r\351!\203\352!\202\353\354\"q\210\355P\262\356\357 C\"\211\262)0\2023\210\2024\210\351!\203@\360\361\"\262)\242 >\205T\340\362\363\364\"P$0\202\\\210\202]\210\266\365Y\203\213\366\367P!\370\371!\203t\211\206\205\372\373\374\342\375\376\361!\377\"\311$\"\210\342TL\266\207" [file-name-handler-alist cl-struct-tramp-file-name-tags remote-file-name-inhibit-cache tramp-verbose tramp-message-show-message nil file-local-name string-prefix-p "/:" 2 "/" substring 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 time-less-p current-time time-add seconds-to-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-get-count-" boundp var add-hook tramp-cache-unload-hook make-byte-code "\301\300!\207" vconcat [makunbound]] 16 (#$ . 2268)]) #@110 Set the PROPERTY of FILE to VALUE, in the cache context of KEY. Returns 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 \312\310\"\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\304\240\266\324!\325\326 B#\210\327\330E\3311%\nX\205!\203\304 \332X\203\304 \333\334\335U\203\252 \336\202\277 \337U\203\264 \336\202\277 \310U\203\276 \340\202\277 \341P#\210\n\342Y\205!\335\337U\203\3431\374 r\344!\203\343 \345!\202\347 \346\347\"q\210\350P\262\351\352 C\"\211\262)0\202 \210\202\210\344!\203 \353\354\"\262)\242 >\205!\333\355\356\357\"P$0\202)\210\202*\210\266\n\360Y\203X\361\362P!\363\364!\203A\211\206R\365\366\367\335\370\371\354!\372\"\310$\"\210\335TL\266\207" [file-name-handler-alist cl-struct-tramp-file-name-tags tramp-verbose tramp-message-show-message nil file-local-name string-prefix-p "/:" 2 "/" substring 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 var add-hook tramp-cache-unload-hook make-byte-code "\301\300!\207" vconcat [makunbound]] 15 (#$ . 4154)]) #@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 \312\310\"\262\313!P)\266\203\262\314!\262\242 >\204O \315\316\317D\"\210\320\233\211\321\322C\"\240\266\242 >\204i \315\316\317D\"\210\323\233\211\304\240\266\324\325!\"\210\326\327D\3301\nX\205\203\270 \331X\203\270 \332\333\334U\203\236 \335\202\263 \336U\203\250 \335\202\263 \310U\203\262 \337\202\263 \340P#\210\n\341Y\205\334\336U\203\365 \3421\360 r\343!\203\327 \344!\202\333 \345\346\"q\210\347P\262\350\351 C\"\211\262)0\202\364 \210\202\365 \210\343!\203\352\353\"\262)\242 >\205\332\354\355\356\"P$0\202\210\202\210\266\n\357Y\2050\360\361P!\362!\262\207" [file-name-handler-alist cl-struct-tramp-file-name-tags tramp-verbose tramp-message-show-message nil file-local-name string-prefix-p "/:" 2 "/" substring 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 (#$ . 5821)]) #@66 Remove some properties of FILE's upper directory. (fn KEY FILE) (defalias 'tramp-flush-file-upper-properties #[514 "C\302!\205\235 \303\304!!C\211\242\305\211?\205 \306!\211\211?\205$ \307\310\306!\")\266\202\203B \211G\311U\203<