|
Server IP : 111.118.215.189 / Your IP : 3.136.20.207 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/net/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:36 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/tramp-gvfs.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 "\304\305!\210\304\306!\210\304\307!\210\304\310!\210\304\311!\210\312\300\313\314\315\305\316\317\320\321& \210\322\323\324\"\210\312\325\326\327\315\305\316\317\320\330& \210\331\332!\203Z \333\211\203Y \n@\334 \"\204R \322\303 \333B\"\210\nA\211\204A *\333\207" [tramp-gvfs-methods elt --dolist-tail-- tramp-methods require tramp dbus url-parse url-util zeroconf custom-declare-variable '("dav" "davs" "obex" "synce") "List of methods for remote files, accessed with GVFS." :group :version "23.2" :type (repeat (choice (const "dav") (const "davs") (const "ftp") (const "obex") (const "sftp") (const "smb") (const "synce"))) add-to-list tramp-default-user-alist ("\\`synce\\'" nil nil) tramp-gvfs-zeroconf-domain "local" "Zeroconf domain to be used for discovering services, like host names." string featurep dbusbind nil assoc] 11)
#@44 The preceding object path for own objects.
(defconst tramp-gvfs-path-tramp (concat dbus-path-emacs "/Tramp") (#$ . 1409))
#@41 The well known name of the GVFS daemon.
(defconst tramp-gvfs-service-daemon "org.gtk.vfs.Daemon" (#$ . 1537))
(byte-code "\300\301!\204\f \302\301!\203 \301\303!\203 \304\305!\204 \306\307!\210\300\207" [subrp dbus-get-unique-name functionp :session tramp-compat-process-running-p "gvfs-fuse-daemon" error "Package `tramp-gvfs' not supported"] 2)
#@37 The object path of the GVFS daemon.
(defconst tramp-gvfs-path-mounttracker "/org/gtk/vfs/mounttracker" (#$ . 1893))
#@50 The mount tracking interface in the GVFS daemon.
(defconst tramp-gvfs-interface-mounttracker "org.gtk.vfs.MountTracker" (#$ . 2015))
#@62 Used by the dbus-proxying implementation of GMountOperation.
(defconst tramp-gvfs-interface-mountoperation "org.gtk.vfs.MountOperation" (#$ . 2154))
#@32 Operation requires a password.
(defconst tramp-gvfs-password-need-password 1 (#$ . 2309))
#@32 Operation requires a username.
(defconst tramp-gvfs-password-need-username 2 (#$ . 2405))
#@30 Operation requires a domain.
(defconst tramp-gvfs-password-need-domain 4 (#$ . 2501))
#@37 Operation supports saving settings.
(defconst tramp-gvfs-password-saving-supported 8 (#$ . 2593))
#@37 Operation supports anonymous users.
(defconst tramp-gvfs-password-anonymous-supported 16 (#$ . 2697))
#@43 The well known name of the BLUEZ service.
(defconst tramp-bluez-service "org.bluez" (#$ . 2805))
#@44 The manager interface of the BLUEZ daemon.
(defconst tramp-bluez-interface-manager "org.bluez.Manager" (#$ . 2908))
#@44 The adapter interface of the BLUEZ daemon.
(defconst tramp-bluez-interface-adapter "org.bluez.Adapter" (#$ . 3030))
#@214 Defines seconds since last bluetooth device discovery before rescanning.
A value of 0 would require an immediate discovery during hostname
completion, nil means to use always cached values for discovered
devices.
(custom-declare-variable 'tramp-bluez-discover-devices-timeout 60 '(#$ . 3153) :group 'tramp :version "23.2" :type '(choice (const nil) integer))
#@95 Indicator for a running bluetooth device discovery.
It keeps the timestamp of last discovery.
(defvar tramp-bluez-discovery nil (#$ . 3518))
#@76 Alist of detected bluetooth devices.
Every entry is a list (NAME ADDRESS).
(defvar tramp-bluez-devices nil (#$ . 3665))
#@41 The well known name of the HAL service.
(defconst tramp-hal-service "org.freedesktop.Hal" (#$ . 3791))
#@44 The object path of the HAL daemon manager.
(defconst tramp-hal-path-manager "/org/freedesktop/Hal/Manager" (#$ . 3900))
#@42 The manager interface of the HAL daemon.
(defconst tramp-hal-interface-manager "org.freedesktop.Hal.Manager" (#$ . 4026))
#@41 The device interface of the HAL daemon.
(defconst tramp-hal-interface-device "org.freedesktop.Hal.Device" (#$ . 4154))
#@130 Alist of handler functions for Tramp GVFS method.
Operations not mentioned here will be handled by the default Emacs primitives.
(defconst tramp-gvfs-file-name-handler-alist '((access-file . ignore) (add-name-to-file . tramp-gvfs-handle-copy-file) (copy-file . tramp-gvfs-handle-copy-file) (delete-directory . tramp-gvfs-handle-delete-directory) (delete-file . tramp-gvfs-handle-delete-file) (directory-file-name . tramp-handle-directory-file-name) (directory-files . tramp-gvfs-handle-directory-files) (directory-files-and-attributes . tramp-gvfs-handle-directory-files-and-attributes) (dired-call-process . ignore) (dired-compress-file . ignore) (dired-uncache . tramp-handle-dired-uncache) (expand-file-name . tramp-gvfs-handle-expand-file-name) (file-attributes . tramp-gvfs-handle-file-attributes) (file-directory-p . tramp-gvfs-handle-file-directory-p) (file-executable-p . tramp-gvfs-handle-file-executable-p) (file-exists-p . tramp-gvfs-handle-file-exists-p) (file-local-copy . tramp-gvfs-handle-file-local-copy) (file-name-all-completions . tramp-gvfs-handle-file-name-all-completions) (file-name-as-directory . tramp-handle-file-name-as-directory) (file-name-completion . tramp-handle-file-name-completion) (file-name-directory . tramp-handle-file-name-directory) (file-name-nondirectory . tramp-handle-file-name-nondirectory) (file-newer-than-file-p . tramp-handle-file-newer-than-file-p) (file-ownership-preserved-p . ignore) (file-readable-p . tramp-gvfs-handle-file-readable-p) (file-regular-p . tramp-handle-file-regular-p) (file-remote-p . tramp-handle-file-remote-p) (file-selinux-context . tramp-gvfs-handle-file-selinux-context) (file-symlink-p . tramp-handle-file-symlink-p) (file-writable-p . tramp-gvfs-handle-file-writable-p) (find-backup-file-name . tramp-handle-find-backup-file-name) (insert-directory . tramp-gvfs-handle-insert-directory) (insert-file-contents . tramp-gvfs-handle-insert-file-contents) (load . tramp-handle-load) (make-directory . tramp-gvfs-handle-make-directory) (make-directory-internal . ignore) (make-symbolic-link . ignore) (process-file . tramp-gvfs-handle-process-file) (rename-file . tramp-gvfs-handle-rename-file) (set-file-modes . tramp-gvfs-handle-set-file-modes) (set-file-selinux-context . tramp-gvfs-handle-set-file-selinux-context) (set-visited-file-modtime . tramp-gvfs-handle-set-visited-file-modtime) (shell-command . tramp-gvfs-handle-shell-command) (start-file-process . tramp-gvfs-handle-start-file-process) (substitute-in-file-name . tramp-handle-substitute-in-file-name) (unhandled-file-name-directory . tramp-handle-unhandled-file-name-directory) (vc-registered . ignore) (verify-visited-file-modtime . tramp-gvfs-handle-verify-visited-file-modtime) (write-region . tramp-gvfs-handle-write-region)) (#$ . 4280))
#@54 Check if it's a filename handled by the GVFS daemon.
(defalias 'tramp-gvfs-file-name-p #[(filename) "\303!\205 \304\305!!\211;\205 \n\235)\207" [filename method tramp-gvfs-methods tramp-tramp-file-p tramp-file-name-method tramp-dissect-file-name] 4 (#$ . 7067)])
(put 'tramp-gvfs-file-name-p 'byte-optimizer 'byte-compile-inline-expand)
#@131 Invoke the GVFS related OPERATION.
First arg specifies the OPERATION, second arg is a list of arguments to
pass to the OPERATION.
(defalias 'tramp-gvfs-file-name-handler #[(operation &rest args) "\305 \"\211\203 \306 \307\216\310\nA\f\"*\202 \311\f\")\207" [operation tramp-gvfs-file-name-handler-alist fn save-match-data-internal args assoc match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) apply tramp-run-real-handler] 4 (#$ . 7417)])
(byte-code "\300\301!\203
\302\303\304\305B\"\210\300\207" [featurep dbusbind add-to-list tramp-foreign-file-name-handler-alist tramp-gvfs-file-name-p tramp-gvfs-file-name-handler] 4)
#@70 Convert a D-Bus message into readable UTF8 strings, used for traces.
(defalias 'tramp-gvfs-stringify-dbus-message #[(message) ":\203 \301@!\203 \302\303\304!\"\207:\203 \305\306\"\207;\203' \302\303\"\207\207" [message characterp format "%S" dbus-byte-array-to-string mapcar tramp-gvfs-stringify-dbus-message] 4 (#$ . 8099)])
#@339 Apply a D-Bus call on bus BUS.
If SYNCHRONOUS is non-nil, the call is synchronously. Otherwise,
it is an asynchronous call, with `ignore' as callback function.
The other arguments have the same meaning as with `dbus-call-method'
or `dbus-call-method-asynchronously'. Additionally, the call
will be traced by Tramp with trace level 6.
(defalias 'with-tramp-dbus-call-method '(macro . #[(vec synchronous bus service path interface method &rest args) "\306\307\310\311BBD\312\313\314 \n \f
\257\310\314\nB\314\315\nBBFED\316BB\317\320BB\321\317\322BB\323BBBBB\207" [synchronous bus service path interface method let func if ('dbus-call-method 'dbus-call-method-asynchronously) args append list 'ignore (result) tramp-message (6 "%s %s" func args) (setq result (apply func args)) (6 "%s" (tramp-gvfs-stringify-dbus-message result)) (result) vec] 11 (#$ . 8443)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\306\307\310\"\207" [put with-tramp-dbus-call-method lisp-indent-function 2 edebug-form-spec (form symbolp body) tramp-compat-font-lock-add-keywords emacs-lisp-mode ("\\<with-tramp-dbus-call-method\\>")] 4)
#@129 Apply a Tramp GVFS `handler'.
In case of an error, modify the error message by replacing
`filename' with its GVFS mounted name.
(defalias 'with-tramp-gvfs-error-message '(macro . #[(filename handler &rest args) "\303\304\305\306DDD\307B\310\311\312 \nBB\313\314\315\316\317\320\321\316\322\323BBEE\324BBB\325BBBFE\207" [filename handler args let fuse-file-name regexp-quote tramp-gvfs-fuse-file-name (elt) condition-case err tramp-compat-funcall error (setq elt (cdr err)) while elt when (and (stringp (car elt)) (string-match fuse-file-name (car elt))) setcar replace-match (t t (car elt)) ((setq elt (cdr elt))) ((signal (car err) (cdr err)))] 16 (#$ . 9584)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\306\307\310\"\207" [put with-tramp-gvfs-error-message lisp-indent-function 2 edebug-form-spec (form symbolp body) tramp-compat-font-lock-add-keywords emacs-lisp-mode ("\\<with-tramp-gvfs-error-message\\>")] 4)
#@158 Current Tramp file name to be used, as vector.
It is needed when D-Bus signals or errors arrive, because there
is no information where to trace the message.
(defvar tramp-gvfs-dbus-event-vector nil (#$ . 10522))
#@78 Called when a D-Bus error message arrives, see `dbus-event-error-functions'.
(defalias 'tramp-gvfs-dbus-event-error #[(event err) "\205M \306\307 C \310\311\312\217\210,\313\314\211 A@)C \310
\315\314\316\211\317N\320\321 \n#E!C \310\322\323\217\210,\324\320\321 \n#C\"-\207" [tramp-gvfs-dbus-event-vector event args fmt-string level vec-or-proc 10 "%S" nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) file-error "%s" 1 error-message-string error-message apply format (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) signal err x tramp-message-show-message] 11 (#$ . 10740)])
(add-hook 'dbus-event-error-functions 'tramp-gvfs-dbus-event-error)
#@35 Like `copy-file' for Tramp files.
(defalias 'tramp-gvfs-handle-copy-file #[(filename newname &optional ok-if-already-exists keep-date preserve-uid-gid preserve-selinux-context) "\306\307!\203 \202\f !\310\n!\311\n! \312\n! \313\n! \314\n! \315\211 !\n\316\317\320\321 #C \" # $ %\315\322\323\217\210,&\203Y '\203Y \316(\324^X\203Y \315\325\326\217\210\327\216&\205c ? &\330\331\332\217\210.\n\333 !\205\233 \306 !\310\n!\311\n! \312\n! \313\n! \314\n! \334\n\335 !\"\210\334\n \".\207" [filename newname v method user host tramp-dissect-file-name tramp-tramp-file-p tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop nil 0 "%s..." format #1="Copying %s to %s" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2="" 1 2 #3="Warning: " #4="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5="(%d) # " vec-or-proc default-directory] 6) ((error)) 3 (byte-code "\304\305!\204\f \306\305!\205 \305\307\310 #!\211\205 \311\312\313\314\n$\304\207" [filename newname pr tm subrp make-progress-reporter functionp format #1# run-at-time 3 0.1 tramp-progress-reporter-update] 6) ((error)) ((byte-code "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n #C \315\316\317\217\210,\315\207" [tm v filename newname args fmt-string subrp cancel-timer functionp 0 "%s...done" format #1# nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) level vec-or-proc] 7)) err (byte-code "\306!\205 \307\310!!\211;\205 \n\235))\203! \311!\202\" \306!\2059 \307\310!!\211;\2058 \n\235))\203C \311 !\202D \f
\257 \203Z \312C\"\313\314\"\210)\306\207" [filename method tramp-gvfs-methods newname ok-if-already-exists keep-date tramp-tramp-file-p tramp-file-name-method tramp-dissect-file-name tramp-gvfs-fuse-file-name append apply copy-file preserve-uid-gid args preserve-selinux-context] 5) ((error (byte-code "\306\307\310 \310\311\312\217\210,\313\314
\204 \205 \315C\316!\316 !D\"\317\320\321 $)!\204i @\322 AC \310 \f\323\322\324\211\325N\317\326\n #E!C \310\327\330\217\210,\331\317\326\n #C\"\210-\310\207" [v args fmt-string level vec-or-proc keep-date 4 "`copy-file' failed, trying `gvfs-copy'" nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) zerop append "--preserve" tramp-gvfs-url-file-name apply tramp-gvfs-send-command "gvfs-copy" "%s" 1 error-message-string error-message format (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) signal preserve-uid-gid filename newname err tramp-message-show-message] 10))) file-remote-p tramp-flush-file-property file-name-directory localname hop tm pr args fmt-string level vec-or-proc tramp-message-show-progress-reporter-message tramp-message-show-message tramp-verbose] 7 (#$ . 12634)])
#@42 Like `delete-directory' for Tramp files.
(defalias 'tramp-gvfs-handle-delete-directory #[(directory &optional recursive) "\302\303! \"\207" [directory recursive tramp-compat-delete-directory tramp-gvfs-fuse-file-name] 3 (#$ . 17693)])
#@37 Like `delete-file' for Tramp files.
(defalias 'tramp-gvfs-handle-delete-file #[(filename &optional trash) "\302\303! \"\207" [filename trash tramp-compat-delete-file tramp-gvfs-fuse-file-name] 3 (#$ . 17935)])
#@41 Like `directory-files' for Tramp files.
(defalias 'tramp-gvfs-handle-directory-files #[(directory &optional full match nosort) "\305!\306\307\310 \n \f$\")\207" [directory fuse-file-name full match nosort tramp-gvfs-fuse-file-name mapcar #[(x) "\303 \"\203 \304\n\305\211 $\207 \207" [fuse-file-name x directory string-match replace-match t] 5] directory-files] 7 (#$ . 18152)])
#@56 Like `directory-files-and-attributes' for Tramp files.
(defalias 'tramp-gvfs-handle-directory-files-and-attributes #[(directory &optional full match nosort id-format) "\306!\307\310\311 \n \f
%\")\207" [directory fuse-file-name full match nosort id-format tramp-gvfs-fuse-file-name mapcar #[(x) "\303 @\"\203 \304\n\305\211 @$\240\210 \207" [fuse-file-name x directory string-match replace-match t] 6] directory-files-and-attributes] 8 (#$ . 18541)])
#@42 Like `expand-file-name' for Tramp files.
(defalias 'tramp-gvfs-handle-expand-file-name #[(name &optional dir) "\206 \206 \306\307\n!\204 \310!\nP\311\n!\204# \312\313\n\314D\"\207\315\n!\316 ! \317 ! \320 ! /\321 ! 0\322 ! 1\323\3240\"\203h \325 2\326\216\327\330\f
/\3061%!\210*\331\332 \306\333\334$\314\3350\336%0\323\3370\"\203\260 \340\341\nC 3 4 ) 5\314 65\336\342\343)\211\344N\345\34643#E!C 3 4 7 5\314\347\350\217\210,\351)\345\34643#C\"\210-\312\3070C\"\204\277 \3060P0\f\352\230\203\332 \323\3530\"\203\353 \331\306\335\2110\336%0\202\353 \323\3540\"\203\353 \331\306\335\2110$0\323\3550\"\203\377 \331\306\335\2110$0\202\353 \356\f
/\312\3130C\"$.\207" [dir default-directory name v method user "/" file-name-absolute-p file-name-as-directory tramp-tramp-file-p tramp-run-real-handler expand-file-name nil tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop string-match "\\`\\(~\\)\\(/\\|\\'\\)" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) tramp-gvfs-maybe-open-connection vector replace-match tramp-get-file-property "default-location" "~" t 1 "\\`\\(~[^/]*\\)\\(.*\\)\\'" file-error "Cannot expand tilde in file `%s'" "%s" error-message-string error-message apply format (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) signal "smb" "^/[^/]+\\(/\\.\\./?\\)" "^/\\.\\./?" "//" tramp-make-tramp-file-name host localname hop save-match-data-internal args fmt-string vec-or-proc tramp-message-show-message level] 10 (#$ . 19003)])
#@41 Like `file-attributes' for Tramp files.
(defalias 'tramp-gvfs-handle-file-attributes #[(filename &optional id-format) "\302\303! \"\207" [filename id-format file-attributes tramp-gvfs-fuse-file-name] 3 (#$ . 21238)])
#@42 Like `file-directory-p' for Tramp files.
(defalias 'tramp-gvfs-handle-file-directory-p #[(filename) "\301\302!!\207" [filename file-directory-p tramp-gvfs-fuse-file-name] 3 (#$ . 21462)])
#@43 Like `file-executable-p' for Tramp files.
(defalias 'tramp-gvfs-handle-file-executable-p #[(filename) "\301\302!!\207" [filename file-executable-p tramp-gvfs-fuse-file-name] 3 (#$ . 21657)])
#@39 Like `file-exists-p' for Tramp files.
(defalias 'tramp-gvfs-handle-file-exists-p #[(filename) "\301\302!!\207" [filename file-exists-p tramp-gvfs-fuse-file-name] 3 (#$ . 21855)])
#@41 Like `file-local-copy' for Tramp files.
(defalias 'tramp-gvfs-handle-file-local-copy #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! 2\314 3\314 4\315\316J\314 4\317\320!\2036 \321\320\322N@!\206\253 \323\324!\203M \325\324!\204H \326\324!\205\253 \324 \202\253 \327\330!\211 5\205Z \3315!)\203f \332\327\330!!\202\253 \327\333!\211 5\205s \3315!)\203 \332\327\333!!\202\253 \327\334!\211 5\205\214 \3315!)\203\230 \332\327\334!!\202\253 \335\336!\203\244 \332\336!\202\253 \337\340!\210\332\341!)\" 6\342\343\" 7\314\211 8\344\345\217\2108. 9\335!\204 \346\347C : ; 0 <\314 =<\350\351\3520\211\353N\354\355;:#E!C : ; > <\314\356\357\217\210,\3600\354\355;:#C\"\210-\3619\343\211$\2109.\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 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 #1="" nil silent] 6) ((file-already-exists t))] 3))) file-error "Cannot make local copy of non-existing file `%s'" 1 "%s" error-message-string error-message apply format (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) signal copy-file hop dir-flag file-name-handler-alist d prefix extension result tmpfile args fmt-string vec-or-proc tramp-message-show-message level] 10 (#$ . 22041)])
#@51 Like `file-name-all-completions' for Tramp files.
(defalias 'tramp-gvfs-handle-file-name-all-completions #[(filename directory) "\303 \304\216\305\306 \"*?\205 \307 \310\n!\"\207" [save-match-data-internal filename directory match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "/" file-name-all-completions tramp-gvfs-fuse-file-name] 4 (#$ . 24642)])
#@41 Like `file-readable-p' for Tramp files.
(defalias 'tramp-gvfs-handle-file-readable-p #[(filename) "\301\302!!\207" [filename file-readable-p tramp-gvfs-fuse-file-name] 3 (#$ . 25059)])
#@46 Like `file-selinux-context' for Tramp files.
(defalias 'tramp-gvfs-handle-file-selinux-context #[(filename) "\301\302!\204\f \303\302!\205 \302\304!!\207" [filename subrp file-selinux-context functionp tramp-gvfs-fuse-file-name] 3 (#$ . 25251)])
#@41 Like `file-writable-p' for Tramp files.
(defalias 'tramp-gvfs-handle-file-writable-p #[(filename) "\301\302!!\207" [filename file-writable-p tramp-gvfs-fuse-file-name] 3 (#$ . 25505)])
#@42 Like `insert-directory' for Tramp files.
(defalias 'tramp-gvfs-handle-insert-directory #[(filename switches &optional wildcard full-directory-p) "\304\305! \n $\207" [filename switches wildcard full-directory-p insert-directory tramp-gvfs-fuse-file-name] 5 (#$ . 25697)])
#@46 Like `insert-file-contents' for Tramp files.
(defalias 'tramp-gvfs-handle-insert-file-contents #[(filename &optional visit beg end replace) "\306\216\307!\310\307! \n \f% \f\311\f
@\"\203$
\312\313\211
@$\240\210
+\207" [filename visit beg end replace result ((byte-code "\302\207" [filename buffer-file-name nil] 1)) tramp-gvfs-fuse-file-name insert-file-contents string-match replace-match t fuse-file-name] 7 (#$ . 25976)])
#@40 Like `make-directory' for Tramp files.
(defalias 'tramp-gvfs-handle-make-directory #[(dir &optional parents) "\306!\307 !\310 !\311 ! \312 ! \313 ! \314\315\316\217.\207" [dir v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop err (byte-code "\303\304!!\305\306\307\310\217*\207" [dir elt fuse-file-name regexp-quote tramp-gvfs-fuse-file-name nil err (byte-code "\302\303!\204\f \304\303!\205 \303\305! \"\207" [dir parents subrp make-directory functionp tramp-gvfs-fuse-file-name] 3) ((error (byte-code "A\211\203& @;\203 \304\n @\"\203 \305 \306\211 @$\240\210 A\211\204 \307@A\"\207" [err elt fuse-file-name dir string-match replace-match t signal] 7)))] 3) ((error (byte-code "\306\307\310 \310\311\312\217\210,\313\314\315\316
!#!?\205R @\317AC \310 \f\320\317\321\211\322N\323\324\n #E!C \310\325\326\217\210,\327\323\324\n #C\"-\207" [v args fmt-string level vec-or-proc dir 4 "`make-directory' failed, trying `gvfs-mkdir'" nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) zerop tramp-gvfs-send-command "gvfs-mkdir" tramp-gvfs-url-file-name "%s" 1 error-message-string error-message apply format (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) signal err tramp-message-show-message] 10))) hop] 3 (#$ . 26417)])
#@38 Like `process-file' for Tramp files.
(defalias 'tramp-gvfs-handle-process-file #[(program &optional infile destination display &rest args) "\306!\307\310 \n \f
&)\207" [default-directory program infile destination display args tramp-gvfs-fuse-file-name apply call-process] 7 (#$ . 29019)])
#@37 Like `rename-file' for Tramp files.
(defalias 'tramp-gvfs-handle-rename-file #[(filename newname &optional ok-if-already-exists) "\306\307!\203 \202\f !\310\n!\311\n! \312\n! \313\n! \314\n! \315\211 !\n\316\317\320\321 #C \" # $ %\315\322\323\217\210,&\203Y '\203Y \316(\324^X\203Y \315\325\326\217\210\327\216&\205c ? &\330\331\332\217\210.\n\333!\203\234 \306!\310\n!\311\n! \312\n! \313\n! \314\n! \334\n\335 !\"\210\334\n \"\210.\333 !\205\313 \306 !\310\n!\311\n! \312\n! \313\n! \314\n! \334\n\335 !\"\210\334\n \".\207" [filename newname v method user host tramp-dissect-file-name tramp-tramp-file-p tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop nil 0 "%s..." format #1="Renaming %s to %s" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2="" 1 2 #3="Warning: " #4="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5="(%d) # " vec-or-proc default-directory] 6) ((error)) 3 (byte-code "\304\305!\204\f \306\305!\205 \305\307\310 #!\211\205 \311\312\313\314\n$\304\207" [filename newname pr tm subrp make-progress-reporter functionp format #1# run-at-time 3 0.1 tramp-progress-reporter-update] 6) ((error)) ((byte-code "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n #C \315\316\317\217\210,\315\207" [tm v filename newname args fmt-string subrp cancel-timer functionp 0 "%s...done" format #1# nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) level vec-or-proc] 7)) err (byte-code "\305\306!\205 \307\310!!\211;\205 \n\235))\203\" \311!\202# \306!\205: \307\310!!\211;\2059 \n\235))\203D \311 !\202E \f#\207" [filename method tramp-gvfs-methods newname ok-if-already-exists rename-file tramp-tramp-file-p tramp-file-name-method tramp-dissect-file-name tramp-gvfs-fuse-file-name] 5) ((error (byte-code "\306\307\310 \310\311\312\217\210,\313\314\315\316
!\316!$!\204V @\317AC \310 \f\320\317\321\211\322N\323\324\n #E!C \310\325\326\217\210,\327\323\324\n #C\"\210-\310\207" [v args fmt-string level vec-or-proc filename 4 "`rename-file' failed, trying `gvfs-move'" nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) zerop tramp-gvfs-send-command "gvfs-move" tramp-gvfs-url-file-name "%s" 1 error-message-string error-message apply format (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) signal newname err tramp-message-show-message] 10))) file-remote-p tramp-flush-file-property file-name-directory localname hop tm pr args fmt-string level vec-or-proc tramp-message-show-progress-reporter-message tramp-message-show-message tramp-verbose] 7 (#$ . 29318)])
#@40 Like `set-file-modes' for Tramp files.
(defalias 'tramp-gvfs-handle-set-file-modes #[(filename mode) "\303\304!!\305\306\307\310\217*\207" [filename elt fuse-file-name regexp-quote tramp-gvfs-fuse-file-name nil err (byte-code "\302\303!\204\f \304\303!\205 \303\305! \"\207" [filename mode subrp set-file-modes functionp tramp-gvfs-fuse-file-name] 3) ((error (byte-code "A\211\203& @;\203 \304\n @\"\203 \305 \306\211 @$\240\210 A\211\204 \307@A\"\207" [err elt fuse-file-name filename string-match replace-match t signal] 7)))] 3 (#$ . 34234)])
#@50 Like `set-file-selinux-context' for Tramp files.
(defalias 'tramp-gvfs-handle-set-file-selinux-context #[(filename context) "\303\304!!\305\306\307\310\217*\207" [filename elt fuse-file-name regexp-quote tramp-gvfs-fuse-file-name nil err (byte-code "\302\303!\204\f \304\303!\205 \303\305! \"\207" [filename context subrp set-file-selinux-context functionp tramp-gvfs-fuse-file-name] 3) ((error (byte-code "A\211\203& @;\203 \304\n @\"\203 \305 \306\211 @$\240\210 A\211\204 \307@A\"\207" [err elt fuse-file-name filename string-match replace-match t signal] 7)))] 3 (#$ . 34801)])
#@50 Like `set-visited-file-modtime' for Tramp files.
(defalias 'tramp-gvfs-handle-set-visited-file-modtime #[(&optional time-list) "\302\300 !\303 !)\207" [buffer-file-name time-list tramp-gvfs-fuse-file-name set-visited-file-modtime] 2 (#$ . 35404)])
#@39 Like `shell-command' for Tramp files.
(defalias 'tramp-gvfs-handle-shell-command #[(command &optional output-buffer error-buffer) "\304!\305 \n #)\207" [default-directory command output-buffer error-buffer tramp-gvfs-fuse-file-name shell-command] 4 (#$ . 35659)])
#@44 Like `start-file-process' for Tramp files.
(defalias 'tramp-gvfs-handle-start-file-process #[(name buffer program &rest args) "\305!\306\307 \n \f%)\207" [default-directory name buffer program args tramp-gvfs-fuse-file-name apply start-process] 6 (#$ . 35931)])
#@53 Like `verify-visited-file-modtime' for Tramp files.
(defalias 'tramp-gvfs-handle-verify-visited-file-modtime #[(buf) "rq\210\302\301 !\303!*\207" [buf buffer-file-name tramp-gvfs-fuse-file-name verify-visited-file-modtime] 2 (#$ . 36201)])
#@38 Like `write-region' for Tramp files.
(defalias 'tramp-gvfs-handle-write-region #[(start end filename &optional append visit lockname confirm) "\306!\307 !\310 !\311 ! \312 ! \313 ! \314\315\316\217\210\317=\204+ ;\2033 \320\321\322!8!\210\317=\204E \203E ;\203X \323\324C \325\326\327\217\210,\330\331!.\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop err (byte-code "\303\304!!\305\306\307\310\217\210*\305\207" [filename elt fuse-file-name regexp-quote tramp-gvfs-fuse-file-name nil err (byte-code "\306\307!\204\f \310\307!\203 \307 \311\n! \f
\n&\210\306\207" [start end filename append visit lockname subrp write-region functionp tramp-gvfs-fuse-file-name confirm] 8) ((error (byte-code "A\211\203& @;\203 \304\n @\"\203 \305 \306\211 @$\240\210 A\211\204 \307@A\"\207" [err elt fuse-file-name filename string-match replace-match t signal] 7)))] 3) ((error (byte-code "\306\306\307\310J\306\311\312!\203 \313\312\314N@!\206\211 \315\316!\2031 \317\316!\204, \320\316!\205\211 \316 \202\211 \321\322!\211\205< \323 !)\203H \324\321\322!!\202\211 \321\325!\211\205S \323 !)\203_ \324\321\325!!\202\211 \321\326!\211\205j \323 !)\203v \324\321\326!!\202\211 \327\330!\203\202 \324\330!\202\211 \331\332!\210\324\333!)\" \334\335\" \306\211 '\336\337\217\210'. ()\340\341\306 * + , -\306\342\343\217\210,\344./(#\210\306\345\346\217\210)\306\207" [filename dir-flag file-name-handler-alist d prefix extension 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 #1="" nil silent] 6) ((file-already-exists t))] 3))) 4 "`write-region' failed, trying `rename-file'" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) write-region (rename-file tmpfile filename) ((error (byte-code "\306!\210 \n@\307\nAC \310 \311\307\312
\211\313N\314\315\f #E!C \310\316\317\217\210,\305
\314\315\f #C\"\210-\310\207" [tmpfile v err args fmt-string signal delete-file "%s" nil 1 error-message-string error-message apply format (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) vec-or-proc tramp-message-show-message level] 10))) result tmpfile v args fmt-string level vec-or-proc start end] 5))) t set-visited-file-modtime 5 file-attributes 0 "Wrote %s" nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) run-hooks tramp-handle-write-region-hook hop visit args fmt-string level vec-or-proc] 4 (#$ . 36450)])
#@32 Return FILENAME in URL syntax.
(defalias 'tramp-gvfs-url-file-name #[(filename) "\306\307\"\310\311 !\203d \312\313 !!\314\n!\315\n! \316\n! \317\n! \320\n! \321 \f\"\203; \322\323\f\"\324\322\323\f\"Q \f\325\n!\326\n!\327 ! !\330\331!\f\332
\332\211\211\211\333&\f. \202z \327\313 !!\330\331\334\332\211\211\211 \332\211\211\211\333&\f)!)\207" [url-unreserved-chars filename v method user host append (47) url-recreate-url tramp-tramp-file-p tramp-dissect-file-name file-truename tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop string-match match-string 2 ";" tramp-file-name-real-host tramp-file-name-port url-hexify-string vector cl-struct-url nil t "file" localname hop tramp-user-with-domain-regexp portspec type] 14 (#$ . 41400)])
#@43 Create a D-Bus object path from FILENAME.
(defalias 'tramp-gvfs-object-path #[(filename) "\302\303! \"\207" [filename tramp-gvfs-path-tramp expand-file-name dbus-escape-as-identifier] 3 (#$ . 42225)])
#@44 Retrieve file name from D-Bus OBJECT-PATH.
(defalias 'tramp-gvfs-file-name #[(object-path) "\301\302\303\304#!\207" [object-path dbus-unescape-from-identifier replace-regexp-in-string "^.*/\\([^/]+\\)$" "\\1"] 5 (#$ . 42433)])
#@54 Return FUSE file name, which is directly accessible.
(defalias 'tramp-gvfs-fuse-file-name #[(filename) "\306\307!!\310 !\311 !\312 ! \313 ! \314 ! (\315 !\210\316 \317\320\321$\316 \317\322\323$ ) *)\204t \324\325C + , -\323 .-\326\327\330 \211\331N\332\333,+#E!C + , / -\323\334\335\217\210,\336 \332\333,+#C\"\210-\337\340\341*!P
\"\203\207 \342\321\343\211
$ \344\345)
PD + , / -\323\346\347\217\210,)
P.\207" [filename v method user host localname tramp-dissect-file-name expand-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-gvfs-maybe-open-connection tramp-get-file-property "/" "prefix" #1="" "fuse-mountpoint" nil file-error "There is no FUSE mount point for `%s'" 1 "%s" error-message-string error-message apply format (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) signal string-match "^" regexp-quote replace-match t 10 "remote file `%s' is local file `%s'" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) hop fuse-mountpoint prefix args fmt-string vec-or-proc tramp-message-show-message level] 10 (#$ . 42667)])
#@69 Return bluetooth device address from a given bluetooth DEVICE name.
(defalias 'tramp-bluez-address #[(device) ";\205 \303 \"\203 \304\305\"\207\306\307 \"\211A@)\207" [device tramp-ipv6-regexp x string-match match-string 0 assoc tramp-bluez-list-devices] 4 (#$ . 45017)])
#@141 Return bluetooth device name from a given bluetooth device ADDRESS.
ADDRESS can have the form "xx:xx:xx:xx:xx:xx" or "[xx:xx:xx:xx:xx:xx]".
(defalias 'tramp-bluez-device #[(address) ";\205> \305\306\"\203 \307\310\311\211$\202 \312\313 \312\211\203: @\305\n\211 A@)\"\2033 \n@ A\211\204! \312 +\207" [address result item --dolist-tail-- x string-match "[][]" replace-match "" t nil tramp-bluez-list-devices] 6 (#$ . 45303)])
#@73 Implementation for the "org.gtk.vfs.MountOperation.askPassword" method.
(defalias 'tramp-gvfs-handler-askpassword #[(message user domain flags) "\305\306!!\307\310\311\312\n\"\203 \313\314\315\n\"!\202 \316 #\317\211 \320\321\217+\207" [last-input-event filename message pw-prompt password tramp-gvfs-file-name dbus-event-path-name format "%s for %s " string-match "\\([pP]assword\\|[pP]assphrase\\)" capitalize match-string 1 "Password" nil (byte-code "\306!\307 !\310 !\311 ! \312 ! \313 ! \314 G!\2031 \314\315 \"!\2041 \316\317! \314 G!\203I \314\315 !\"!\204I \316\320! \321\322\" F # $ % &\323\324\325\217\210,\n' (\f)\326\327 !*\"\211+;\203\213 \330\323+\331 ! \323\332\257\202\227 \323\330\333\331 ! \323\332\257.\207" [filename l l-method l-user l-host l-localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop zerop logand read-string "User name: " "Domain name: " 6 "%S %S %S %d" nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) tramp-read-passwd tramp-get-connection-process t tramp-file-name-real-user 0 #1# l-hop user flags tramp-gvfs-password-need-username domain tramp-gvfs-password-need-domain message args fmt-string level vec-or-proc tramp-current-method tramp-current-user tramp-current-host pw-prompt password] 8) ((quit (byte-code "\300\301\302\211\211\300\303\257\207" [nil t #1# 0] 7)))] 7 (#$ . 45749)])
#@73 Implementation for the "org.gtk.vfs.MountOperation.askQuestion" method.
(defalias 'tramp-gvfs-handler-askquestion #[(message choices) "\303 \304\216\305\306\306\307\310\217,\207" [#1=#:wconfig choice enable-recursive-minibuffers current-window-configuration ((set-window-configuration #1#)) t nil (byte-code "\306\307\310!!!\311 !\312 !\313 ! \314 ! \315 ! ( \316\317)D * + , -\320\321\322\217\210,\323\324! .r.q\210\325\216\326\320 / 0\327\2160\203V \330 /\331\3320\"\210c\210\333p!\210\334)@\335P!\203l \336\202m \3371 \316\3401C * + , -\320\341\342\217\210.\n\3431!\204\222 \344 \345\346\345$\210\347\3201E.\207" [last-input-event v method user host localname tramp-dissect-file-name tramp-gvfs-file-name dbus-event-path-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 6 "%S %S" nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #3="" 1 2 #7="Warning: " #8="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #9="(%d) # " vec-or-proc default-directory] 6) ((error)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) #3# ((byte-code "\203 \203 \302\303 \"\210\202 \302\304!\210\304\207" [#4=#:with-temp-message #5=#:current-message message #6="%s" nil] 3)) current-message message #6# pop-to-buffer yes-or-no-p " " 0 1 "%d" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #3# 1 2 #7# #8# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #9# vec-or-proc default-directory] 6) ((error)) zerop tramp-set-file-property "/" "fuse-mountpoint" t hop choices args fmt-string level vec-or-proc #2# #5# #4# choice] 5) ((quit (list nil t 0)))] 3 (#$ . 47831)])
#@109 Signal handler for the "org.gtk.vfs.MountTracker.mounted" and
"org.gtk.vfs.MountTracker.unmounted" signals.
(defalias 'tramp-gvfs-handler-mounted-unmounted #[(mount-info) "\300\301\302\217\207" [nil (byte-code "\306! \n@;\203 \nA\211\202 \307\n\211 A@)! \nAA@ 0\307\nAAA@! 1\307\310\3110\211 A@)\"\211 A@)! 2\307\310\3120\211 A@)\"\211 A@)! 3\307\310\3130\211 A@)\"\211 A@)! 4\307\310\3140\211 A@)\"\206| \310\3150\211 A@)\"\211 A@)! 5\307\310\3160\211 A@)\"\211 A@)! 6\307\310\3170\211 A@)\"\211 A@)! 7\3070@!\307\310\3200\211 A@)\"\211 A@)!P 8\321\3222\"\203\316 \32322\324\230\203\333 \3255!52\326\230\203\354 7\327\230\203\354 \3302\3314G!\204\375 394Q3\3316G!\2045:6Q5\332\333235\334$! ;\335;! 2\336;! 3\337;! 5\340;! <\341;! =;\342\343 \344 !D > ? @ A\345\346\347\217\210,\350;\351\352\353$\210 \354\230\203h\350;\351\355\345$\202\2108\351\230\204x\350;\351\3568$\210\350;\351\355
$\210\350;\351\3571$.\207" [last-input-event mount-info elt signal-name x fuse-mountpoint dbus-event-member-name dbus-byte-array-to-string assoc "type" "user" "domain" "host" "server" "port" "ssl" "share" string-match "^smb" "smb" "obex" tramp-bluez-device "dav" "true" "davs" zerop tramp-dissect-file-name tramp-make-tramp-file-name #1="" tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 6 "%s %s" tramp-gvfs-stringify-dbus-message nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) tramp-set-file-property "/" "list-mounts" undef "unmounted" "fuse-mountpoint" "prefix" "default-location" mount-spec default-location method user domain host port ssl prefix tramp-prefix-domain-format tramp-prefix-port-format v localname hop args fmt-string level vec-or-proc] 7) ((error))] 3 (#$ . 50529)])
(byte-code "\302\303\304 \305\306&\210\302\303\304 \307\306&\207" [tramp-gvfs-path-mounttracker tramp-gvfs-interface-mounttracker dbus-register-signal :session nil "mounted" tramp-gvfs-handler-mounted-unmounted "unmounted"] 7)
#@49 Check, whether the location is already mounted.
(defalias 'tramp-gvfs-connection-mounted-p #[(vec) "\301\302\303\304$\206\f \305\306\215\207" [vec tramp-get-file-property "/" "fuse-mountpoint" nil mounted (byte-code "\306\307!\203e \310\307\311\312$\211\312=\203` \313\314\315\n \f\316\257\317\"\317 ? @\320\321@?D ? A B C\317\322\323\217\210,\324@?\"\320\325\326
!C ? A B C\317\327\330\217\210,
+\331\307\311 $\210 )\202\252 \313\314\315\n \f\316\257\317\"\317 ? @\320\321@?D ? A B C\317\332\333\217\210,\324@?\"\320\325\326
!C ? A B C\317\334\335\217\210,
+\317 D\211 E\203JE@\211D@;\203\307 DA\211D\202\271 \336D\211 FA@)! GDAA@ H\336DAAA@! I\336\337\340H\211 FA@)\"\211 FA@)! J\336\337\341H\211 FA@)\"\211 FA@)! K\336\337\342H\211 FA@)\"\211 FA@)! L\336\337\343H\211 FA@)\"\206=\337\344H\211 FA@)\"\211 FA@)! M\336\337\345H\211 FA@)\"\211 FA@)! N\336\337\346H\211 FA@)\"\211 FA@)! O\336H@!\336\337\347H\211 FA@)\"\211 FA@)!P P\350\351J\"\203\226\352JJ\353\230\203\243\354M!MJ\355\230\203\264O\356\230\203\264\357JJ\360\230\203\314\361KG!\203\314\362!\206\312\363K\361LG!\204\335KQLQK\361NG!\204\356MRNQMJ\364!\230\203?K\362!\206 \363\230\203?M\365!\230\203?\350\366\367P!P\370!\"\203?P\307\230\204*\331\307\371P$\210\331\307\372G$\210\331\307\373I$\210\374\375\376\"\210.\nEA\211E\204\263 \317D*\317\207" [vec value tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker tramp-gvfs-interface-mounttracker result file-name-absolute-p "/" tramp-get-file-property "list-mounts" undef dbus-call-method append :session "listMounts" nil 6 "%s %s" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) apply "%s" tramp-gvfs-stringify-dbus-message (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) tramp-set-file-property (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) dbus-byte-array-to-string assoc "type" "user" "domain" "host" "server" "port" "ssl" "share" string-match "^smb" "smb" "obex" tramp-bluez-device "dav" "true" "davs" "synce" zerop tramp-file-name-user #1# tramp-file-name-method tramp-file-name-host "^" regexp-quote tramp-file-name-localname "prefix" "fuse-mountpoint" "default-location" throw mounted t args func fmt-string level vec-or-proc elt --dolist-tail-- x fuse-mountpoint mount-spec default-location method user domain host port ssl prefix tramp-prefix-domain-format tramp-prefix-port-format] 8)] 5 (#$ . 53178)])
#@67 Return a mount-spec for "org.gtk.vfs.MountTracker.mountLocation".
(defalias 'tramp-gvfs-mount-spec #[(vec) "\306!\307!\310!\311! \312! \313! -\314\315 \"\203$ \316\202% \317 .\320 &\321 /\322& \323\230\203V \314\324-\"\210\325\326\327\330!E\325\331\327\f!E\325\332\327\333\334-\"!EE\202\234 \335\230\203q \325\326\327 !E\325\336\327\337\340\f!\341Q!ED\202\234 \314\342 \"\203\217 \325\326\327\343!E\325\336\327\f!E\325\344\327.!EE\202\234 \325\326\327 !E\325\336\327\f!ED\"&\n\203\256 \345\346\325\347\327\n!E\322#\210 \203\275 \345\346\325\350\327 !E\322#\210
\203\316 \345\346\325\351\327\352
!!E\322#\210\314\342 \"\203\344 \314\353-\"\203\344 \333\354-\"/\325\327/!&E. \207" [vec method user domain host port tramp-file-name-method tramp-file-name-real-user tramp-file-name-domain tramp-file-name-real-host tramp-file-name-port tramp-file-name-localname string-match "^davs" "true" "false" (:array) "/" append "smb" "^/?\\([^/]+\\)" :struct "type" dbus-string-to-byte-array "smb-share" "server" "share" match-string 1 "obex" "host" "[" tramp-bluez-address "]" "^dav" "dav" "ssl" add-to-list mount-spec "user" "domain" "port" number-to-string "^/?[^/]+" 0 localname ssl mount-pref] 10 (#$ . 58064)])
#@163 Maybe open a connection VEC.
Does not do anything if a connection is already open, but re-opens the
connection if a previous connection has died for some reason.
(defalias 'tramp-gvfs-maybe-open-connection #[(vec) "\306\307!!\204\" \310\311\312!\313\307!\314\315\316\317\320\315&\n\321\n\322\"\210)\323!?\205.\324!\325! \326! \327\330 \f
\331$! @\322\211 A B\332\333\334\fG!\203W \335\336
#\202] \335\337\f
$C C D E F\322\340\341\217\210,G\203\204 H\203\204 \332I\332^X\203\204 \322\342\343\217\210\344\216G\205\216 A? G\345\346\315#\210\347\350J@K\351\352&\210\347\350J@K\353\354&\210\355\356\350LMN\357\257\360\361!\362\350!\363@\257\"\322 O C P\364\365PCD C D E F\322\366\367\217\210,\370PC\"O\364\371\372O!C C D E F\322\373\374\217\210,O\210+\375\376\215\211 Q\375=\203\301\334\325!G!\203n\377\201S
D C D R F\322 HF\201T \371\201U R\211\201V N\370\335DC#E!C C D E F\322\201W \201X \217\210,\201R R\370\335DC#C\"\210-\202\304\377\201Y \f
E C D R F\322 HF\201T \371\201U R\211\201V N\370\335DC#E!C C D E F\322\201Z \201[ \217\210,\201R R\370\335DC#C\"\210-\202\304Q\210)\201\\ \201] \201^ \331$\201] \230\203%\377\201_ \322 C D R F\322 HF\201T \371\201U R\211\201V N\370\335DC#E!C C D E F\322\201` \201a \217\210,\201R R\370\335DC#C\"\210-\345\201b \315#.\207" [vec tramp-gvfs-dbus-event-vector p method user host get-buffer-process tramp-get-buffer make-network-process :name tramp-buffer-name :buffer :server t :host local :service tramp-compat-set-process-query-on-exit-flag nil tramp-gvfs-connection-mounted-p tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-gvfs-object-path tramp-make-tramp-file-name #1="" 3 "%s..." zerop format #2="Opening connection for %s using %s" #3="Opening connection for %s@%s using %s" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #4="Warning: " #5="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #6="(%d) # " vec-or-proc default-directory] 6) ((error)) (byte-code "\305\306!\204\f \307\306!\205# \306\310G!\203 \311\312 \n#\202\" \311\313 \n$!\211\205. \314\315\316\317 $\305\207" [user host method pr tm subrp make-progress-reporter functionp zerop format #2# #3# run-at-time 3 0.1 tramp-progress-reporter-update] 7) ((error)) ((byte-code "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\nG!\203& \314\315 \f#\202, \314\316\n \f$C \317\320\321\217\210,\317\207" [tm vec user host method args subrp cancel-timer functionp 3 "%s...done" zerop format #2# #3# nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #4# #5# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #6# vec-or-proc default-directory] 6) ((error)) fmt-string level vec-or-proc] 8)) tramp-set-connection-property "first-password-request" dbus-register-method :session "askPassword" tramp-gvfs-handler-askpassword "askQuestion" tramp-gvfs-handler-askquestion dbus-call-method-asynchronously append "mountLocation" ignore tramp-gvfs-mount-spec dbus-get-unique-name :object-path 6 "%s %s" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #4# #5# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #6# vec-or-proc default-directory] 6) ((error)) apply "%s" tramp-gvfs-stringify-dbus-message (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #4# #5# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #6# vec-or-proc default-directory] 6) ((error)) #7=#:timeout (byte-code "\303\304\305\306#\211 B\307\216\310\n\311\312\305$?\205 \313\305\211\314#\210\202\f +\207" [-with-timeout-timer- with-timeout-timers vec run-with-timer 60 nil #[nil "\300\301\211\"\207" [throw #7#] 3] ((cancel-timer -with-timeout-timer-)) tramp-get-file-property "/" "fuse-mountpoint" read-event 0.1] 6) file-error object-path tm pr args fmt-string level vec-or-proc tramp-message-show-progress-reporter-message tramp-message-show-message tramp-verbose dbus-service-emacs tramp-gvfs-interface-mountoperation tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker tramp-gvfs-interface-mounttracker result func -with-timeout-value- signal "Timeout reached mounting %s using %s" 1 error-message-string error-message (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #4# #5# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #6# vec-or-proc default-directory] 6) ((error)) "Timeout reached mounting %s@%s using %s" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #4# #5# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #6# vec-or-proc default-directory] 6) ((error)) tramp-get-file-property "/" "fuse-mountpoint" "FUSE mount denied" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #4# #5# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #6# vec-or-proc default-directory] 6) ((error)) "started"] 12 (#$ . 59294)])
#@167 Send the COMMAND with its ARGS to connection VEC.
COMMAND is usually a command from the gvfs-* utilities.
`call-process' is applied, and its return code is returned.
(defalias 'tramp-gvfs-send-command #[(vec command &rest args) "\306r\307 !q\210\310 \210 \311\312\n\313\314 \315#D \306\316\317\217\210,\320\321\n\306\322\306 & \311\323\324 C \306\325\326\217\210,*\207" [result vec command args fmt-string level nil tramp-get-buffer erase-buffer 6 "%s %s" mapconcat identity " " (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) apply tramp-compat-call-process t "%s" buffer-string (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) vec-or-proc] 8 (#$ . 67441)])
#@309 Return all discovered bluetooth devices as list.
Every entry is a list (NAME ADDRESS).
If `tramp-bluez-discover-devices-timeout' is an integer, and the last
discovery happened more time before indicated there, a rescan will be
started, which lasts some ten seconds. Otherwise, cached results will
be used.
(defalias 'tramp-bluez-list-devices #[nil "\250\203 \250\203 \306\307 \"V\203 \310\n\204\300 \311\312\313 \314\f\315\257\310\"\310 $ %&\316\317%$D $ ' ( )\310\320\321\217\210,\322%$\"&\316\323\324
!C $ ' ( )\310\325\326\217\210,
+ *\310\327\330\312\313 *+\331\257\332C\"\310 $ %&\316\317%$D $ ' ( )\310\333\334\217\210,\322%$\"&\316\323\324
!C $ ' ( )\310\335\336\217\210,
\210+ \203\277 \337\310\211\340#\210\202\262 )\307 &\341\323\nC $ ' ( )\310\342\343\217\210,\n\207" [tramp-bluez-discover-devices-timeout tramp-bluez-discovery tramp-bluez-devices tramp-bluez-service tramp-bluez-interface-manager result tramp-time-diff current-time nil dbus-call-method append :system "/" "DefaultAdapter" 6 "%s %s" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) apply "%s" tramp-gvfs-stringify-dbus-message (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) t dbus-call-method-asynchronously "StartDiscovery" ignore (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) read-event 0.1 10 (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) args func tramp-gvfs-dbus-event-vector fmt-string level vec-or-proc object-path tramp-bluez-interface-adapter] 7 (#$ . 69337)])
#@68 Signal handler for the "org.bluez.Adapter.PropertyChanged" signal.
(defalias 'tramp-bluez-property-changed #[(property value) "\306\307 \nD \310\311\312\217\210, \313\230\205e \n@?\205e \310\314\315\316\317! \320\257\310\"\310 \306\307 D \310\321\322\217\210,\323 \" \306\324\325 !C \310\326\327\217\210, +\207" [tramp-gvfs-dbus-event-vector property value args fmt-string level 6 "%s %s" nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) "Discovering" dbus-call-method append :system dbus-event-path-name "StopDiscovery" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) apply "%s" tramp-gvfs-stringify-dbus-message (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) vec-or-proc tramp-bluez-discovery tramp-bluez-service last-input-event tramp-bluez-interface-adapter result func] 7 (#$ . 73879)])
(byte-code "\301\302\303\211\304\305&\207" [tramp-bluez-interface-adapter dbus-register-signal :system nil "PropertyChanged" tramp-bluez-property-changed] 7)
#@64 Signal handler for the "org.bluez.Adapter.DeviceFound" signal.
(defalias 'tramp-bluez-device-found #[(device args) "\306\307 \nD \310\311\312\217\210,\313\314\n\"\211 A@)@\313\315\n\"\211 A@)@ \316\317D\"*\207" [tramp-gvfs-dbus-event-vector device args fmt-string level vec-or-proc 6 "%s %s" nil (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) assoc "Alias" "Address" add-to-list tramp-bluez-devices x address alias] 6 (#$ . 76688)])
(byte-code "\301\302\303\211\304\305&\207" [tramp-bluez-interface-adapter dbus-register-signal :system nil "DeviceFound" tramp-bluez-device-found] 7)
#@55 Return a list of (nil host) tuples allowed to access.
(defalias 'tramp-bluez-parse-device-names #[(ignore) "\300\301\302 \"\207" [mapcar #[(x) "\301@D\207" [x nil] 2] tramp-bluez-list-devices] 3 (#$ . 77906)])
(byte-code "\301\302!\235\203
\303\304\305\"\210\301\207" [tramp-bluez-service dbus-list-known-names :system tramp-set-completion-function "obex" ((tramp-bluez-parse-device-names ""))] 3)
#@56 Return a list of (user host) tuples allowed to access.
(defalias 'tramp-zeroconf-parse-workstation-device-names #[(ignore) "\300\301\302\303!\"\207" [mapcar #[(x) "\301\302!D\207" [x nil zeroconf-service-host] 3] zeroconf-list-services "_workstation._tcp"] 4 (#$ . 78313)])
#@56 Return a list of (user host) tuples allowed to access.
(defalias 'tramp-zeroconf-parse-webdav-device-names #[(ignore) "\300\301\302\303!\"\207" [mapcar #[(x) "\306!\307!\310!\311 \203 \312\313\f
$\n\2032 \314\315\n@\"\203+ \316\317\n@\"\nA\211\204 \f,D\207" [x user text port host tramp-prefix-port-regexp zeroconf-service-host zeroconf-service-port zeroconf-service-txt nil format "%s%s%d" string-match "u=\\(.+\\)$" match-string 1] 6] zeroconf-list-services "_webdav._tcp"] 4 (#$ . 78594)])
(byte-code "\302\303!\235\203 \304 !\210\305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\302\207" [zeroconf-service-avahi tramp-gvfs-zeroconf-domain dbus-list-known-names :system zeroconf-init tramp-set-completion-function "sftp" ((tramp-zeroconf-parse-workstation-device-names #1="")) "dav" ((tramp-zeroconf-parse-webdav-device-names #1#)) "davs" ((tramp-zeroconf-parse-webdav-device-names #1#))] 3)
#@86 Return all discovered synce devices as list.
They are retrieved from the hal daemon.
(defalias 'tramp-synce-list-devices #[nil "\306\307\310\311 \n \312\257\306\"\306 $%\313\314$
D & ' (\306\315\316\217\210,\317$
\"%\313\320\321\f!C & ' (\306\322\323\217\210,\f+\306 )\211 *\203\354 *@)\307\310\311 )+\324\257\325C\"\306 $%\313\314$
D & ' (\306\326\327\217\210,\317$
\"%\313\320\321\f!C & ' (\306\330\331\217\210,\f+\203\343 \332\300\307\310\311 )+\333\257\334C\"\306 $%\313\314$
D & ' (\306\335\336\217\210,\317$
\"%\313\320\321\f!C & ' (\306\337\340\217\210,\f+\"\210*A\211*\204M *%\341\320C & ' (\306\342\343\217\210,)\207" [tramp-synce-devices tramp-hal-service tramp-hal-path-manager tramp-hal-interface-manager result args nil dbus-call-method append :system "GetAllDevices" 6 "%s %s" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) apply "%s" tramp-gvfs-stringify-dbus-message (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) "PropertyExists" "sync.plugin" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) add-to-list "GetPropertyString" "pda.pocketpc.name" (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) 10 (byte-code " X\203~ \306 \307\216 \203; \310X\203; \311\312\313U\203! \314\2026 \315U\203+ \314\2026 \316U\2035 \317\2026 \320\fP
#\210 \321Y\203} \203d \322!\203d \323\324!!\203d r\324!q\210\325!)\203} \326!\203} \311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) func tramp-gvfs-dbus-event-vector fmt-string level vec-or-proc device --dolist-tail-- tramp-hal-interface-device] 10 (#$ . 79516)])
#@55 Return a list of (nil host) tuples allowed to access.
(defalias 'tramp-synce-parse-device-names #[(ignore) "\300\301\302 \"\207" [mapcar #[(x) "\301D\207" [x nil] 2] tramp-synce-list-devices] 3 (#$ . 85144)])
(byte-code "\300\301\302\"\210\303\304\305\"\210\306\307!\207" [tramp-set-completion-function "synce" ((tramp-synce-parse-device-names "")) add-hook tramp-unload-hook #[nil "\300\301\302\"\207" [unload-feature tramp-gvfs force] 3] provide tramp-gvfs] 3)