;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require tramp dbus url-parse url-util] 2) #@33 Non-nil when GVFS is available. (defconst tramp-gvfs-enabled (byte-code "\3011:\302\303!\2058\304\305\306\"\2058\307\310!\2058\310\311!\2058\307\310!\2058\310\312!\2058\313X\2068\314\315!\2068\314\316!0\207\210\317\207" [emacs-major-version (error) featurep dbusbind autoload zeroconf-init "zeroconf" functionp dbus-get-unique-name :system :session 25 tramp-process-running-p "gvfs-fuse-daemon" "gvfsd-fuse" nil] 3) (#$ . 196)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable tramp-gvfs-methods funcall function #[0 "\300\207" [("afp" "dav" "davs" "gdrive" "mtp" "nextcloud" "sftp")] 1] "List of methods for remote files, accessed with GVFS." :group tramp :version "28.1" :type (repeat (choice (const "afp") (const "dav") (const "davs") (const "ftp") (const "gdrive") (const "http") (const "https") (const "mtp") (const "nextcloud") (const "sftp") (const "smb")))] 10) #@70 List of methods which require registration at GNOME Online Accounts. (defconst tramp-goa-methods '("gdrive" "nextcloud") (#$ . 1128)) (byte-code "\203\f \304\305!\235\204 \n\211\203\211@\306 \"A\266\202\202 \210\304\207" [tramp-gvfs-enabled tramp-goa-service tramp-goa-methods tramp-gvfs-methods dbus-list-known-names :session delete] 5) #@142 List of GVFS methods which are covered by the "mtp" method. They are checked during start up via `tramp-gvfs-interface-remotevolumemonitor'. (defvar tramp-media-methods '("afc" "gphoto2" "mtp") (#$ . 1482)) #@87 Return the well known name of the volume monitor responsible for METHOD. (fn METHOD) (defalias 'tramp-gvfs-service-volumemonitor #[257 "\300\301\302\"!J\207" [intern-soft format "tramp-gvfs-service-%s-volumemonitor"] 5 (#$ . 1695)]) (byte-code "\302\303\304\305#\306\303\307\310#\210\2034 \211\2033\211@\211\311\312\313\"!J\262\314\315!\235\204,\316 \"A\266\202\202\210\317\320\321\322\323DD\324\325\326\327\330\331\332& \210\333\334!\203P\335\336\337\"\210\302\207" [tramp-gvfs-enabled tramp-media-methods function-put tramp-gvfs-service-volumemonitor speed -1 put byte-optimizer byte-compile-inline-expand intern-soft format "tramp-gvfs-service-%s-volumemonitor" dbus-list-known-names :session delete custom-declare-variable tramp-gvfs-zeroconf-domain funcall function #[0 "\300\207" [#1="local"] 1 #1#] "Zeroconf domain to be used for discovering services, like host names." :group tramp :version "23.2" :type string featurep dbusbind add-hook tramp--startup-hook #[0 "\211\205(\211@\303 \"\204\304\301C\"\210\211\n\235\203!\304\305\306B\"\210A\266\202\202\207" [tramp-gvfs-methods tramp-methods tramp-goa-methods assoc add-to-list tramp-default-host-alist (nil "")] 6]] 11) #@44 The preceding object path for own objects. (defconst tramp-gvfs-path-tramp (concat dbus-path-emacs "/Tramp") (#$ . 2904)) #@41 The well known name of the GVFS daemon. (defconst tramp-gvfs-service-daemon "org.gtk.vfs.Daemon" (#$ . 3032)) #@37 The object path of the GVFS daemon. (defconst tramp-gvfs-path-mounttracker "/org/gtk/vfs/mounttracker" (#$ . 3148)) #@50 The mount tracking interface in the GVFS daemon. (defconst tramp-gvfs-interface-mounttracker "org.gtk.vfs.MountTracker" (#$ . 3270)) #@64 The list of supported methods of the mount tracking interface. (defconst tramp-gvfs-methods-mounttracker (byte-code "\205\n\304\305 \n $\207" [tramp-gvfs-enabled tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker tramp-gvfs-interface-mounttracker dbus-introspect-get-method-names :session] 5) (#$ . 3409)) #@72 The name of the "listMounts" method. It has been changed in GVFS 1.14. (defconst tramp-gvfs-listmounts (byte-code "\301\235\203\301\207\302\207" [tramp-gvfs-methods-mounttracker "ListMounts" "listMounts"] 2) (#$ . 3727)) #@75 The name of the "mountLocation" method. It has been changed in GVFS 1.14. (defconst tramp-gvfs-mountlocation (byte-code "\301\235\203\301\207\302\207" [tramp-gvfs-methods-mounttracker "MountLocation" "mountLocation"] 2) (#$ . 3957)) #@86 The D-Bus signature of the "mountLocation" method. It has been changed in GVFS 1.14. (defconst tramp-gvfs-mountlocation-signature (byte-code "\205 \305\306 \n \f%\207" [tramp-gvfs-enabled tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker tramp-gvfs-interface-mounttracker tramp-gvfs-mountlocation dbus-introspect-get-signature :session] 6) (#$ . 4199)) #@62 Used by the dbus-proxying implementation of GMountOperation. (defconst tramp-gvfs-interface-mountoperation "org.gtk.vfs.MountOperation" (#$ . 4565)) #@32 Operation requires a password. (defconst tramp-gvfs-password-need-password 1 (#$ . 4720)) #@32 Operation requires a username. (defconst tramp-gvfs-password-need-username 2 (#$ . 4816)) #@30 Operation requires a domain. (defconst tramp-gvfs-password-need-domain 4 (#$ . 4912)) #@37 Operation supports saving settings. (defconst tramp-gvfs-password-saving-supported 8 (#$ . 5004)) #@37 Operation supports anonymous users. (defconst tramp-gvfs-password-anonymous-supported 16 (#$ . 5108)) #@59 The well known name of the GNOME Online Accounts service. (defconst tramp-goa-service "org.gnome.OnlineAccounts" (#$ . 5216)) #@47 The object path of the GNOME Online Accounts. (defconst tramp-goa-path "/org/gnome/OnlineAccounts" (#$ . 5348)) #@56 The object path of the GNOME Online Accounts accounts. (defconst tramp-goa-path-accounts (concat tramp-goa-path "/Accounts") (#$ . 5466)) #@55 The documents interface of the GNOME Online Accounts. (defconst tramp-goa-interface-documents "org.gnome.OnlineAccounts.Documents" (#$ . 5610)) #@54 The printers interface of the GNOME Online Accounts. (defconst tramp-goa-interface-printers "org.gnome.OnlineAccounts.Printers" (#$ . 5760)) #@51 The files interface of the GNOME Online Accounts. (defconst tramp-goa-interface-files "org.gnome.OnlineAccounts.Files" (#$ . 5907)) #@54 The contacts interface of the GNOME Online Accounts. (defconst tramp-goa-interface-contacts "org.gnome.OnlineAccounts.Contacts" (#$ . 6045)) #@54 The calendar interface of the GNOME Online Accounts. (defconst tramp-goa-interface-calendar "org.gnome.OnlineAccounts.Calendar" (#$ . 6192)) #@57 The oauth2based interface of the GNOME Online Accounts. (defconst tramp-goa-interface-oauth2based "org.gnome.OnlineAccounts.OAuth2Based" (#$ . 6339)) #@53 The account interface of the GNOME Online Accounts. (defconst tramp-goa-interface-account "org.gnome.OnlineAccounts.Account" (#$ . 6495)) #@72 Regexp matching GNOME Online Accounts "PresentationIdentity" property. (defconst tramp-goa-identity-regexp (concat "^\\(" tramp-user-regexp "\\)?@\\(" tramp-host-regexp "\\)?\\(?::\\(" tramp-port-regexp "\\)\\)?") (#$ . 6639)) #@50 The mail interface of the GNOME Online Accounts. (defconst tramp-goa-interface-mail "org.gnome.OnlineAccounts.Mail" (#$ . 6872)) #@50 The chat interface of the GNOME Online Accounts. (defconst tramp-goa-interface-chat "org.gnome.OnlineAccounts.Chat" (#$ . 7007)) #@52 The photos interface of the GNOME Online Accounts. (defconst tramp-goa-interface-photos "org.gnome.OnlineAccounts.Photos" (#$ . 7142)) #@55 The object path of the GNOME Online Accounts manager. (defconst tramp-goa-path-manager (concat tramp-goa-path "/Manager") (#$ . 7283)) #@53 The manager interface of the GNOME Online Accounts. (defconst tramp-goa-interface-documents "org.gnome.OnlineAccounts.Manager" (#$ . 7424)) #@76 compiler-macro for inlining `tramp-goa-account-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'tramp-goa-account-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block tramp-goa-account-p (and (memq (car-safe cl-x) cl-struct-tramp-goa-account-tags) t)) nil] 9 (#$ . 7570)]) (put 'tramp-goa-account-p 'compiler-macro 'tramp-goa-account-p--cmacro) #@13 (fn CL-X) (defalias 'tramp-goa-account-p #[257 "\211\242>\205\301\207" [cl-struct-tramp-goa-account-tags t] 3 (#$ . 7947)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put tramp-goa-account-p side-effect-free error-free put tramp-goa-account cl-deftype-satisfies] 5) #@81 compiler-macro for inlining `tramp-goa-account-method'. (fn CL-WHOLE-ARG CL-X) (defalias 'tramp-goa-account-method--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block tramp-goa-account-method (progn (or (tramp-goa-account-p cl-x) (signal 'wrong-type-argument (list 'tramp-goa-account cl-x))) (nth 1 cl-x))) nil] 9 (#$ . 8243)]) (put 'tramp-goa-account-method 'compiler-macro 'tramp-goa-account-method--cmacro) #@69 Access slot "method" of `tramp-goa-account' struct CL-X. (fn CL-X) (defalias 'tramp-goa-account-method #[257 "\211\242>\204\301\302\303D\"\210\211A@\207" [cl-struct-tramp-goa-account-tags signal wrong-type-argument tramp-goa-account] 5 (#$ . 8695)]) (byte-code "\300\301\302\303#\300\207" [function-put tramp-goa-account-method side-effect-free t] 4) #@79 compiler-macro for inlining `tramp-goa-account-user'. (fn CL-WHOLE-ARG CL-X) (defalias 'tramp-goa-account-user--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block tramp-goa-account-user (progn (or (tramp-goa-account-p cl-x) (signal 'wrong-type-argument (list 'tramp-goa-account cl-x))) (nth 2 cl-x))) nil] 9 (#$ . 9057)]) (put 'tramp-goa-account-user 'compiler-macro 'tramp-goa-account-user--cmacro) #@67 Access slot "user" of `tramp-goa-account' struct CL-X. (fn CL-X) (defalias 'tramp-goa-account-user #[257 "\211\242>\204\301\302\303D\"\210\3048\207" [cl-struct-tramp-goa-account-tags signal wrong-type-argument tramp-goa-account 2] 5 (#$ . 9499)]) (byte-code "\300\301\302\303#\300\207" [function-put tramp-goa-account-user side-effect-free t] 4) #@79 compiler-macro for inlining `tramp-goa-account-host'. (fn CL-WHOLE-ARG CL-X) (defalias 'tramp-goa-account-host--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block tramp-goa-account-host (progn (or (tramp-goa-account-p cl-x) (signal 'wrong-type-argument (list 'tramp-goa-account cl-x))) (nth 3 cl-x))) nil] 9 (#$ . 9857)]) (put 'tramp-goa-account-host 'compiler-macro 'tramp-goa-account-host--cmacro) #@67 Access slot "host" of `tramp-goa-account' struct CL-X. (fn CL-X) (defalias 'tramp-goa-account-host #[257 "\211\242>\204\301\302\303D\"\210\3048\207" [cl-struct-tramp-goa-account-tags signal wrong-type-argument tramp-goa-account 3] 5 (#$ . 10299)]) (byte-code "\300\301\302\303#\300\207" [function-put tramp-goa-account-host side-effect-free t] 4) #@79 compiler-macro for inlining `tramp-goa-account-port'. (fn CL-WHOLE-ARG CL-X) (defalias 'tramp-goa-account-port--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block tramp-goa-account-port (progn (or (tramp-goa-account-p cl-x) (signal 'wrong-type-argument (list 'tramp-goa-account cl-x))) (nth 4 cl-x))) nil] 9 (#$ . 10658)]) (put 'tramp-goa-account-port 'compiler-macro 'tramp-goa-account-port--cmacro) #@67 Access slot "port" of `tramp-goa-account' struct CL-X. (fn CL-X) (defalias 'tramp-goa-account-port #[257 "\211\242>\204\301\302\303D\"\210\3048\207" [cl-struct-tramp-goa-account-tags signal wrong-type-argument tramp-goa-account 4] 5 (#$ . 11101)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put tramp-goa-account-port side-effect-free t defalias copy-tramp-goa-account copy-sequence] 4) #@107 compiler-macro for inlining `make-tramp-goa-account'. (fn CL-WHOLE &cl-quote &key METHOD USER HOST PORT) (defalias 'make-tramp-goa-account--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\211@\305>\203,\211AA\262\202\306>A@\203;\307\262\202\310\311@\"\210\202\210\312\313\314\307 \307    & \207" [plist-member :method :user :host :port (:method :user :host :port :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:method :user :host :port)" cl--defsubst-expand (method user host port) (cl-block make-tramp-goa-account (list 'tramp-goa-account method user host port))] 16 (#$ . 11517)]) (put 'make-tramp-goa-account 'compiler-macro 'make-tramp-goa-account--cmacro) #@87 Constructor for objects of type `tramp-goa-account'. (fn &key METHOD USER HOST PORT) (defalias 'make-tramp-goa-account #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\211@\305>\203,\211AA\262\202\306>A@\203;\307\262\202\310\311@\"\210\202\210\312\257\207" [plist-member :method :user :host :port (:method :user :host :port :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:method :user :host :port)" tramp-goa-account] 10 (#$ . 12266)]) (byte-code "\300\301\302\303#\304\305\306\211\307\303\310\311\305\306& \207" [function-put make-tramp-goa-account side-effect-free t cl-struct-define tramp-goa-account nil list ((cl-tag-slot) (method) (user) (host) (port)) cl-struct-tramp-goa-account-tags] 11) #@48 The well known name of the AFC volume monitor. (defconst tramp-gvfs-service-afc-volumemonitor "org.gtk.vfs.AfcVolumeMonitor" (#$ . 13043)) #@48 The well known name of the GOA volume monitor. (defconst tramp-gvfs-service-goa-volumemonitor "org.gtk.vfs.GoaVolumeMonitor" (#$ . 13188)) #@52 The well known name of the GPhoto2 volume monitor. (defconst tramp-gvfs-service-gphoto2-volumemonitor "org.gtk.vfs.GPhoto2VolumeMonitor" (#$ . 13333)) #@48 The well known name of the MTP volume monitor. (defconst tramp-gvfs-service-mtp-volumemonitor "org.gtk.vfs.MTPVolumeMonitor" (#$ . 13490)) #@47 The object path of the remote volume monitor. (defconst tramp-gvfs-path-remotevolumemonitor "/org/gtk/Private/RemoteVolumeMonitor" (#$ . 13635)) #@31 The volume monitor interface. (defconst tramp-gvfs-interface-remotevolumemonitor "org.gtk.Private.RemoteVolumeMonitor" (#$ . 13786)) #@77 compiler-macro for inlining `tramp-media-device-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'tramp-media-device-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block tramp-media-device-p (and (memq (car-safe cl-x) cl-struct-tramp-media-device-tags) t)) nil] 9 (#$ . 13925)]) (put 'tramp-media-device-p 'compiler-macro 'tramp-media-device-p--cmacro) #@13 (fn CL-X) (defalias 'tramp-media-device-p #[257 "\211\242>\205\301\207" [cl-struct-tramp-media-device-tags t] 3 (#$ . 14309)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put tramp-media-device-p side-effect-free error-free put tramp-media-device cl-deftype-satisfies] 5) #@82 compiler-macro for inlining `tramp-media-device-method'. (fn CL-WHOLE-ARG CL-X) (defalias 'tramp-media-device-method--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block tramp-media-device-method (progn (or (tramp-media-device-p cl-x) (signal 'wrong-type-argument (list 'tramp-media-device cl-x))) (nth 1 cl-x))) nil] 9 (#$ . 14610)]) (put 'tramp-media-device-method 'compiler-macro 'tramp-media-device-method--cmacro) #@70 Access slot "method" of `tramp-media-device' struct CL-X. (fn CL-X) (defalias 'tramp-media-device-method #[257 "\211\242>\204\301\302\303D\"\210\211A@\207" [cl-struct-tramp-media-device-tags signal wrong-type-argument tramp-media-device] 5 (#$ . 15070)]) (byte-code "\300\301\302\303#\300\207" [function-put tramp-media-device-method side-effect-free t] 4) #@80 compiler-macro for inlining `tramp-media-device-host'. (fn CL-WHOLE-ARG CL-X) (defalias 'tramp-media-device-host--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block tramp-media-device-host (progn (or (tramp-media-device-p cl-x) (signal 'wrong-type-argument (list 'tramp-media-device cl-x))) (nth 2 cl-x))) nil] 9 (#$ . 15438)]) (put 'tramp-media-device-host 'compiler-macro 'tramp-media-device-host--cmacro) #@68 Access slot "host" of `tramp-media-device' struct CL-X. (fn CL-X) (defalias 'tramp-media-device-host #[257 "\211\242>\204\301\302\303D\"\210\3048\207" [cl-struct-tramp-media-device-tags signal wrong-type-argument tramp-media-device 2] 5 (#$ . 15888)]) (byte-code "\300\301\302\303#\300\207" [function-put tramp-media-device-host side-effect-free t] 4) #@80 compiler-macro for inlining `tramp-media-device-port'. (fn CL-WHOLE-ARG CL-X) (defalias 'tramp-media-device-port--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block tramp-media-device-port (progn (or (tramp-media-device-p cl-x) (signal 'wrong-type-argument (list 'tramp-media-device cl-x))) (nth 3 cl-x))) nil] 9 (#$ . 16252)]) (put 'tramp-media-device-port 'compiler-macro 'tramp-media-device-port--cmacro) #@68 Access slot "port" of `tramp-media-device' struct CL-X. (fn CL-X) (defalias 'tramp-media-device-port #[257 "\211\242>\204\301\302\303D\"\210\3048\207" [cl-struct-tramp-media-device-tags signal wrong-type-argument tramp-media-device 3] 5 (#$ . 16702)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put tramp-media-device-port side-effect-free t defalias copy-tramp-media-device copy-sequence] 4) #@103 compiler-macro for inlining `make-tramp-media-device'. (fn CL-WHOLE &cl-quote &key METHOD HOST PORT) (defalias 'make-tramp-media-device--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312\313\306\306&\207" [plist-member :method :host :port (:method :host :port :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:method :host :port)" cl--defsubst-expand (method host port) (cl-block make-tramp-media-device (list 'tramp-media-device method host port))] 14 (#$ . 17124)]) (put 'make-tramp-media-device 'compiler-macro 'make-tramp-media-device--cmacro) #@83 Constructor for objects of type `tramp-media-device'. (fn &key METHOD HOST PORT) (defalias 'make-tramp-media-device #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311F\207" [plist-member :method :host :port (:method :host :port :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:method :host :port)" tramp-media-device] 8 (#$ . 17830)]) (byte-code "\300\301\302\303#\304\305\306\211\307\303\310\311\305\306& \207" [function-put make-tramp-media-device side-effect-free t cl-struct-define tramp-media-device nil list ((cl-tag-slot) (method) (host) (port)) cl-struct-tramp-media-device-tags] 11) #@66 List of cons cells, mapping "gvfs-" to "gio ". (defconst tramp-gvfs-gio-mapping '(("gvfs-copy" . "copy") ("gvfs-info" . "info") ("gvfs-ls" . "list") ("gvfs-mkdir" . "mkdir") ("gvfs-monitor-file" . "monitor") ("gvfs-mount" . "mount") ("gvfs-move" . "move") ("gvfs-rm" . "remove") ("gvfs-set-attribute" . "set")) (#$ . 18563)) #@23 GVFS file attributes. (defconst tramp-gvfs-file-attributes '("name" "type" "standard::display-name" "standard::symlink-target" "standard::is-volatile" "unix::nlink" "unix::uid" "owner::user" "unix::gid" "owner::group" "time::access" "time::modified" "time::changed" "standard::size" "unix::mode" "access::can-read" "access::can-write" "access::can-execute" "unix::inode" "unix::device") (#$ . 18912)) #@54 Regexp to parse GVFS file attributes with `gvfs-ls'. (defconst tramp-gvfs-file-attributes-with-gvfs-ls-regexp (byte-code "\301\302\303\"\304Q\207" [tramp-gvfs-file-attributes "[[:blank:]]" regexp-opt t "=\\(.+?\\)"] 4) (#$ . 19319)) #@56 Regexp to parse GVFS file attributes with `gvfs-info'. (defconst tramp-gvfs-file-attributes-with-gvfs-info-regexp (byte-code "\301\302\303\"\304Q\207" [tramp-gvfs-file-attributes "^[[:blank:]]*" regexp-opt t ":[[:blank:]]+\\(.*\\)$"] 4) (#$ . 19559)) #@30 GVFS file system attributes. (defconst tramp-gvfs-file-system-attributes '("filesystem::free" "filesystem::size" "filesystem::used") (#$ . 19817)) #@63 Regexp to parse GVFS file system attributes with `gvfs-info'. (defconst tramp-gvfs-file-system-attributes-regexp (byte-code "\301\302\303\"\304Q\207" [tramp-gvfs-file-system-attributes "^[[:blank:]]*" regexp-opt t ":[[:blank:]]+\\(.*\\)$"] 4) (#$ . 19970)) #@50 Default prefix for owncloud / nextcloud methods. (defconst tramp-gvfs-nextcloud-default-prefix "/remote.php/webdav" (#$ . 20234)) #@60 Regexp of default prefix for owncloud / nextcloud methods. (defconst tramp-gvfs-nextcloud-default-prefix-regexp (byte-code "\301!\302P\207" [tramp-gvfs-nextcloud-default-prefix regexp-quote "$"] 2) (#$ . 20370)) #@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 . tramp-handle-access-file) (add-name-to-file . tramp-handle-add-name-to-file) (copy-directory . tramp-handle-copy-directory) (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-handle-directory-files) (directory-files-and-attributes . tramp-handle-directory-files-and-attributes) (dired-compress-file . ignore) (dired-uncache . tramp-handle-dired-uncache) (exec-path . ignore) (expand-file-name . tramp-gvfs-handle-expand-file-name) (file-accessible-directory-p . tramp-handle-file-accessible-directory-p) (file-acl . ignore) (file-attributes . tramp-gvfs-handle-file-attributes) (file-directory-p . tramp-handle-file-directory-p) (file-equal-p . tramp-handle-file-equal-p) (file-executable-p . tramp-gvfs-handle-file-executable-p) (file-exists-p . tramp-handle-file-exists-p) (file-in-directory-p . tramp-handle-file-in-directory-p) (file-local-copy . tramp-handle-file-local-copy) (file-modes . tramp-handle-file-modes) (file-name-all-completions . tramp-gvfs-handle-file-name-all-completions) (file-name-as-directory . tramp-handle-file-name-as-directory) (file-name-case-insensitive-p . tramp-handle-file-name-case-insensitive-p) (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-notify-add-watch . tramp-gvfs-handle-file-notify-add-watch) (file-notify-rm-watch . tramp-handle-file-notify-rm-watch) (file-notify-valid-p . tramp-handle-file-notify-valid-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-handle-file-selinux-context) (file-symlink-p . tramp-handle-file-symlink-p) (file-system-info . tramp-gvfs-handle-file-system-info) (file-truename . tramp-handle-file-truename) (file-writable-p . tramp-handle-file-writable-p) (find-backup-file-name . tramp-handle-find-backup-file-name) (insert-directory . tramp-handle-insert-directory) (insert-file-contents . tramp-handle-insert-file-contents) (load . tramp-handle-load) (make-auto-save-file-name . tramp-handle-make-auto-save-file-name) (make-directory . tramp-gvfs-handle-make-directory) (make-directory-internal . ignore) (make-nearby-temp-file . tramp-handle-make-nearby-temp-file) (make-process . ignore) (make-symbolic-link . tramp-handle-make-symbolic-link) (process-file . ignore) (rename-file . tramp-gvfs-handle-rename-file) (set-file-acl . ignore) (set-file-modes . tramp-gvfs-handle-set-file-modes) (set-file-selinux-context . ignore) (set-file-times . tramp-gvfs-handle-set-file-times) (set-visited-file-modtime . tramp-handle-set-visited-file-modtime) (shell-command . ignore) (start-file-process . ignore) (substitute-in-file-name . tramp-handle-substitute-in-file-name) (temporary-file-directory . tramp-handle-temporary-file-directory) (tramp-get-remote-gid . tramp-gvfs-handle-get-remote-gid) (tramp-get-remote-uid . tramp-gvfs-handle-get-remote-uid) (tramp-set-file-uid-gid . tramp-gvfs-handle-set-file-uid-gid) (unhandled-file-name-directory . ignore) (vc-registered . ignore) (verify-visited-file-modtime . tramp-handle-verify-visited-file-modtime) (write-region . tramp-handle-write-region)) (#$ . 20590)) #@69 Check if it's a FILENAME handled by the GVFS daemon. (fn FILENAME) (defalias 'tramp-gvfs-file-name-p #[257 "\302!\205&\303!\211\242>\204\304\305\306D\"\210\211A@\262\211;\205$\211 \235\262\207" [cl-struct-tramp-file-name-tags tramp-gvfs-methods tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name] 6 (#$ . 24313)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tramp-gvfs-file-name-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@167 Invoke the GVFS related OPERATION and ARGS. First arg specifies the OPERATION, second arg is a list of arguments to pass to the OPERATION. (fn OPERATION &rest ARGS) (defalias 'tramp-gvfs-file-name-handler #[385 "\204 \302\303\304\"\210\305 \"\211\203\306 \307\310\"\216\311A\")\207\312\"\207" [tramp-gvfs-enabled tramp-gvfs-file-name-handler-alist tramp-user-error nil "Package `tramp-gvfs' not supported" assoc match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] apply tramp-run-real-handler] 7 (#$ . 24828)]) (byte-code "\300\301!\203 \302\303\304\"\210\300\207" [featurep dbusbind add-hook tramp--startup-hook #[0 "\300\301\302\"\207" [tramp-register-foreign-file-name-handler tramp-gvfs-file-name-p tramp-gvfs-file-name-handler] 3]] 3) #@78 Like `dbus-string-to-byte-array' but add trailing \0 if needed. (fn STRING) (defalias 'tramp-gvfs-dbus-string-to-byte-array #[257 "\302\303\304\305\306#)\266\203\203\307\310!P\202!\207" [tramp-gvfs-mountlocation-signature inhibit-changing-match-data dbus-string-to-byte-array "^(aya{sv})" nil t string-match string 0] 9 (#$ . 25616)]) #@117 Like `dbus-byte-array-to-string' but remove trailing \0 if exists. Return nil for null BYTE-ARRAY. (fn BYTE-ARRAY) (defalias 'tramp-gvfs-dbus-byte-array-to-string #[257 "\211:\203\211@:\204\211\202\211@\211\205,\300:\203*\301!@\302U\203*\303!\202+!\207" [dbus-byte-array-to-string last 0 butlast] 5 (#$ . 25970)]) #@84 Convert a D-Bus MESSAGE into readable UTF8 strings, used for traces. (fn MESSAGE) (defalias 'tramp-gvfs-stringify-dbus-message #[257 "\211:\203\300@!\203\301\302\303!\"\207\211:\203(\211A:\204(\304@!\304A!B\207\211:\2032\305\304\"\207\211;\203<\301\302\"\207\207" [characterp format "%S" tramp-gvfs-dbus-byte-array-to-string tramp-gvfs-stringify-dbus-message mapcar] 5 (#$ . 26305)]) #@116 Apply a D-Bus function FUNC from dbus.el. The call will be traced by Tramp with trace level 6. (fn VEC FUNC ARGS) (defalias 'tramp-dbus-function #[771 "\303\304\305BC\3061\242X\205\234\307X\203B \204B\310\311\312U\203(\313\202=\314U\2032\313\202=\315U\203<\316\202=\317P#\210\320Y\205\234\312\314U\203|\3211{r\322!\203a\323!\202e\324\325\"q\210\326P\262\327\330 C\"\211\262)0\210\202|\210\322!\203\210\331\332\"\262)\242\n>\205\234\310\333\334\335\"P$0\266\202\244\266\310\"\262\304\305\336!D\3061JX\205F\307X\203\354 \204\354\310\311\312U\203\322\313\202\347\314U\203\334\313\202\347\315U\203\346\316\202\347\317P#\210\320Y\205F\312\314U\203&\3211%r\322!\203 \323!\202\324\325\"q\210\326P\262\327\330 C\"\211\262)0\210\202&\210\322!\2032\331\332\"\262)\242\n>\205F\310\333\334\335\"P$0\266\207\266\207" [tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags nil 6 "%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) # " tramp-gvfs-stringify-dbus-message] 14 (#$ . 26711)]) (put 'tramp-dbus-function 'tramp-suppress-trace t) #@338 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'. (fn VEC SYNCHRONOUS BUS SERVICE PATH INTERFACE METHOD &rest ARGS) (defalias 'with-tramp-dbus-call-method '(macro . #[1927 "\300\301\302 \303BBD\304\305\306\n\n\n\n\n\257\302\f\306B\306\307\nBBFEDD\310\311 \312BBDE\207" [let func if (#'dbus-call-method #'dbus-call-method-asynchronously) args append list 'ignore dbus-ignore-errors tramp-dbus-function (func args)] 19 (#$ . 28034)])) (byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\207" [function-put with-tramp-dbus-call-method lisp-indent-function 2 put edebug-form-spec t font-lock-add-keywords emacs-lisp-mode ("\\")] 5) #@127 Return all properties of INTERFACE. The call will be traced by Tramp with trace level 6. (fn VEC BUS SERVICE PATH INTERFACE) (defalias 'with-tramp-dbus-get-all-properties '(macro . #[1285 "\300\301\302\303\304\n\n\nFFE\302\305\304    \257FE\207" [when member tramp-dbus-function #'dbus-introspect-get-interface-names list #'dbus-get-all-properties] 15 (#$ . 28946)])) (byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\207" [function-put with-tramp-dbus-get-all-properties lisp-indent-function 1 put edebug-form-spec t font-lock-add-keywords emacs-lisp-mode ("\\")] 5) #@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 (#$ . 29588)) #@94 Called when a D-Bus error message arrives, see `dbus-event-error-functions'. (fn EVENT ERR) (defalias 'tramp-gvfs-dbus-event-error #[514 "\205\254\304\305C\3061\243 X\205\235\307X\203C\n\204C\310\311\312U\203)\313\202>\314U\2033\313\202>\315U\203=\316\202>\317P#\210 \320Y\205\235\312\314U\203}\3211|r\322!\203b\323!\202f\324\325\"q\210\326P\262\327\330 C\"\211\262)0\210\202}\210\322!\203\211\331\332\"\262)\242 >\205\235\310\333\334\335\"P$0\266\202\245\266\336\337A@#\207" [tramp-gvfs-dbus-event-vector tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags 6 "%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) # " tramp-error file-error] 12 (#$ . 29806)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook dbus-event-error-functions tramp-gvfs-dbus-event-error tramp-gvfs-unload-hook #[0 "\300\301\302\"\207" [remove-hook dbus-event-error-functions tramp-gvfs-dbus-event-error] 3]] 3) #@841 Copy or rename a remote file. OP must be `copy' or `rename' and indicates the operation to perform. FILENAME specifies the file to copy or rename, NEWNAME is the name of the new file (for copy) or the new name of the file (for rename). OK-IF-ALREADY-EXISTS means don't barf if NEWNAME exists already. KEEP-DATE means to make sure that NEWNAME has the same timestamp as FILENAME. PRESERVE-UID-GID, when non-nil, instructs to keep the uid and gid if both files are on the same host. PRESERVE-EXTENDED-ATTRIBUTES is ignored. This function is invoked by `tramp-gvfs-handle-copy-file' and `tramp-gvfs-handle-rename-file'. It is an error if OP is neither of `copy' and `rename'. FILENAME and NEWNAME must be absolute file names. (fn OP FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID PRESERVE-EXTENDED-ATTRIBUTES) (defalias 'tramp-gvfs-do-copy-or-rename-file #[1795 "C\306>\204\307\310 \"\210\211\311\242!\240\210\312\242!\2034\313\242\314$\210\315=\205\330\316\242\317\"\207\320\242!\320!\321\242 \"\n\315=\205\201\242\320!\205q\322!\211\242>\204b\323\324\325D\"\210\211A@\262\211;\205o\211 \235\262\262\205\201\326\327\330\242!\"A\331\232 \332=\203\214\333\202\215\334\f\332=\203\230\335\202\231\336\322\203\245\242\202\247\f!\211\242>\204\266\323\324\325D\"\210\211A@\242>\204\307\323\324\325D\"\210\3378\242>\204\330\323\324\325D\"\210\3408\242>\204\352\323\324\325D\"\210\3418\242>\204\374\323\324\325D\"\210\3428\242>\204\323\324\325D\"\210\3438\242>\204\"\323\324\325 D\"\210\3448\345\242!\204K\242\346\347N\203C\350\n#\266\202K\350\n\351$\266\204_\345!\203_\350\352#\210\312!\203v\353!\204v\350\354\355$\210 \204\227\n\203\227\356\242&\357\242!\210\207 \203\245\360\361\362#\204\n \203\330\242\320!\205\323\322!\211\242>\204\304\323\324\325D\"\210\211A@\262\211;\205\321\211 \235\262\262\203\n\f\203J\320!\205\322!\211\242>\204\366\323\324\325D\"\210\211A@\262\211;\205\211 \235\262\262\204J\242\362\363\364 \365\366\367N@\314\"\"\370\314\"#\266\202\332=\203:\356\242\314&\210\202B\371\242\314#\210\371#\207\f\204R \203^\372\373 \f\374\332=\205k\204j\205k\375\376\242!\376!D\"$\203\237 \203\256\373\377\376!#\204\256\332=\204\256\373\377\376\242!#\203\256 \203\262 \203=\360\361\362#\203=r\201C!q\210eb\210\362\354\201D\f\201E D\201F \201G\201H\"\216\201I!\203\346\206\201J!\203\366\201K!\206\242>\205\201C!\242>\203 \206\211\205r\211q\210\322@!)\201G\201L%\216\372\350%)\266\202)\266)\202\256\201M\361\314#\210\201N\242&\210\202\256\201O\201P\201Q\201R \242$C\201S1AAX\205;\340X\203\301B\204\301\372\201T\201OU\203\237\201U\202\274\201VU\203\255\201U\202\274\337U\203\271\201W\202\274\201XP#\210A\341Y\205;\201OA\201VU\203\201Y1r\201J!\203\354\201K!\202\364\201C\201Z\"q\210\201[P\262\374\201\\ C\"\211\262)0\210\202\210\201J!\203!\201]\201^\"\262)\242>\205;\372\201_\201Q\201`\"P$0\266\202C\266\201aCB?\205l\201OA\340^X\205l\201b\201Q\201R\f\242$\362\211#\211\205|\201c\340\201d\201e$\262\201G\201f&\216B\206\231\211B\372\373 \374\332=\205\264\204\263\205\264\375\376\242!\376!D\"$\203\350 \203\244\373\n\377\376!#\204\244\332=\204\244\373\n\377\376\242!#\203\244 \203\373 \203\206\360\n\361\362#\203\206r\201C\n!q\210eb\210\362\n\354\201D\201E D\201F \201G\201H\"\216\201I!\203/\206K\201J!\203?\201K!\206K\242>\205K\201C!\242>\203V\206c\211\205cr\211q\210\322@!)\201G\201L%\216\372\350%)\266\202)\266)\202\244\201M\n\361\314#\210\201N\242&\210)\201g\240\210)\266 \203F\315=\203F\322\242!\211\242>\204\315\323\324\325D\"\210\211A@\242>\204\336\323\324\325D\"\210\3378\242>\204\357\323\324\325D\"\210\3408\242>\204\323\324\325D\"\210\3418\242>\204\323\324\325D\"\210\3428\242>\204%\323\324\325D\"\210\3438\242>\2049\323\324\325 D\"\210\3448\201h\"\266 \f\205\326\322!\211\242>\204]\323\324\325D\"\210\211A@\242>\204n\323\324\325D\"\210\3378\242>\204\323\324\325D\"\210\3408\242>\204\221\323\324\325D\"\210\3418\242>\204\243\323\324\325D\"\210\3428\242>\204\265\323\324\325D\"\210\3438\242>\204\311\323\324\325 D\"\210\3448\201h\"\266\210\266\216\207" [cl-struct-tramp-file-name-tags tramp-gvfs-methods tramp-file-missing tramp-temp-name-prefix noninteractive inhibit-message (copy rename) error "Unknown operation `%s', must be `copy' or `rename'" file-truename file-directory-p copy-directory t rename delete-directory recursive tramp-tramp-file-p tramp-equal-remote tramp-dissect-file-name signal wrong-type-argument tramp-file-name assoc "standard::is-volatile" tramp-gvfs-get-file-attributes "TRUE" copy "gvfs-copy" "gvfs-move" "Copying" "Renaming" 2 3 4 5 6 7 file-exists-p file-missing error-conditions tramp-error "No such file or directory: %s" file-already-exists directory-name-p file-error "File is a directory %s" copy-file delete-file tramp-get-connection-property "direct-copy-failed" nil make-temp-file expand-file-name eval temporary-file-directory standard-value file-name-extension rename-file apply tramp-gvfs-send-command append ("--preserve") tramp-gvfs-url-file-name "gvfs-info" default-directory tramp-verbose tramp-inhibit-progress-reporter tramp-get-connection-buffer "%s failed, see buffer `%s' for details." buffer-name current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] bufferp processp process-buffer #[0 "\302\203+\f\306U\204+ \204+\307 \203+\310\311\312\313\300\301#\210\314\302!\210\315 \210\316\317!\210*\320\303@\"\2059\321 \241\207" [V0 V1 V2 V3 tramp-verbose non-essential 0 current-message t nil apply message pop-to-buffer discard-input sit-for 30 tramp-file-name-equal-p current-time inhibit-message enable-recursive-minibuffers tramp-current-connection] 4] tramp-set-connection-property tramp-gvfs-do-copy-or-rename-file 0 "%s..." format #1="%s %s to %s" #2=(error) message #3="" 1 #4="Warning: " #5="Tramp: " #6=(error) dont-create #7="\n%s" buffer-string process-get vector tramp-debug-message #8="(%d) # " "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update #[0 "\305\203\306\305!\210\303\307\310\311\312\302\300\242\301$\304\242D\3131\260\"X\205\256\314X\203Q#\204Q\315\316\307U\2037\317\202L\320U\203A\317\202L\321U\203K\322\202L\323P#\210\"\324Y\205\256\307\"\320U\203\215\3251\214r\326!\203r\327!\202v\330\331\"q\210\332P\262\333\334 C\"\211\262)0\210\202\215\210\326!\203\231\335\336\"\262)\242$>\205\256\315\337\311\340\"P$0\207\266\341\207" [V0 V1 V2 V3 V4 V5 cancel-timer 0 "%s...%s" format #1# #2# 3 apply message #3# 1 2 #4# #5# 4 #6# processp process-buffer tramp-get-connection-buffer dont-create #7# append buffer-string process-get vector tramp-debug-message #8# nil tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags] 10] "done" tramp-flush-file-properties] 38 (#$ . 30950)]) #@145 Like `copy-file' for Tramp files. (fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID PRESERVE-EXTENDED-ATTRIBUTES) (defalias 'tramp-gvfs-handle-copy-file #[1538 "\300!\262\300!\262\301!\204\301!\203)\302\303&\207\304\305\257\"\207" [expand-file-name tramp-tramp-file-p tramp-gvfs-do-copy-or-rename-file copy tramp-run-real-handler copy-file] 14 (#$ . 38349)]) #@84 Like `delete-directory' for Tramp files. (fn DIRECTORY &optional RECURSIVE TRASH) (defalias 'tramp-gvfs-handle-delete-directory #[769 "\304\305!!\211\242>\204\306\307\310D\"\210\211A@\242>\204$\306\307\310D\"\210\3118\242>\2045\306\307\310D\"\210\3128\242>\204G\306\307\310D\"\210\3138\242>\204Y\306\307\310D\"\210\3148\242>\204k\306\307\310D\"\210\3158\242>\204\306\307\310 D\"\210\3168 \203\252\203\252 \204\242\317 !\204\242\320\321\322#\210\202P\323 !\210\202P \203\307\324 !\204\307\325\326\327\f\"\330 \331\n#\"\210\202\327\317 !\204\327\320\321\332$\210\333\334\335!#\204Pr\336!q\210eb\210\337\321\340C\341 \326\342\"\216\343!\203\206\344!\203\345!\206\242>\205\336!\242>\203(\2064\211\2054r\211q\210\304 !)\326\346%\216\347\320%)\266\202)\266)\350\"\207" [cl-struct-tramp-file-name-tags delete-by-moving-to-trash directory-files-no-dot-files-regexp default-directory tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-compat-directory-empty-p tramp-error file-error "Directory is not empty, not moving to trash" move-file-to-trash file-symlink-p mapc make-closure #[257 "\301!\211@\262\302=\203\303\300\"\207\304!\207" [V0 file-attributes t delete-directory delete-file] 4 "\n\n(fn FILE)"] directory-files full "Couldn't delete non-empty %s" tramp-gvfs-send-command "gvfs-rm" tramp-gvfs-url-file-name tramp-get-connection-buffer nil "Couldn't delete %s" current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] bufferp processp process-buffer #[0 "\302\203+\f\306U\204+ \204+\307 \203+\310\311\312\313\300\301#\210\314\302!\210\315 \210\316\317!\210*\320\303@\"\2059\321 \241\207" [V0 V1 V2 V3 tramp-verbose non-essential 0 current-message t nil apply message pop-to-buffer discard-input sit-for 30 tramp-file-name-equal-p current-time inhibit-message enable-recursive-minibuffers tramp-current-connection] 4] apply tramp-flush-directory-properties] 25 (#$ . 38781)]) #@68 Like `delete-file' for Tramp files. (fn FILENAME &optional TRASH) (defalias 'tramp-gvfs-handle-delete-file #[513 "\303!\211\242>\204\304\305\306D\"\210\211A@\242>\204\"\304\305\306D\"\210\3078\242>\2043\304\305\306D\"\210\3108\242>\204E\304\305\306D\"\210\3118\242>\204W\304\305\306D\"\210\3128\242>\204i\304\305\306D\"\210\3138\242>\204}\304\305\306 D\"\210\3148\315\"\210 \203\225\203\225\316\n!\207\317\320\321 !#?\205r\322!q\210eb\210\323\324\325 C\326 \327\330\"\216\331!\203\306\206\334\332!\203\322\333!\206\334\242>\205\334\322!\242>\203\347\206\363\211\205\363r\211q\210\303\n!)\327\334%\216\335\336%)\266\202)\266\206)\207" [cl-struct-tramp-file-name-tags delete-by-moving-to-trash default-directory tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-properties move-file-to-trash tramp-gvfs-send-command "gvfs-rm" tramp-gvfs-url-file-name tramp-get-connection-buffer nil file-error "Couldn't delete %s" current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] bufferp processp process-buffer #[0 "\302\203+\f\306U\204+ \204+\307 \203+\310\311\312\313\300\301#\210\314\302!\210\315 \210\316\317!\210*\320\303@\"\2059\321 \241\207" [V0 V1 V2 V3 tramp-verbose non-essential 0 current-message t nil apply message pop-to-buffer discard-input sit-for 30 tramp-file-name-equal-p current-time inhibit-message enable-recursive-minibuffers tramp-current-connection] 4] apply tramp-error] 24 (#$ . 40881)]) #@67 Like `expand-file-name' for Tramp files. (fn NAME &optional DIR) (defalias 'tramp-gvfs-handle-expand-file-name #[513 "\211\206 \206 \303\262G\304U\203\305\262\306!\204\"\307!P\262\310!\204/\311\312\313D\"\207\314!\211\242 >\204@\315\316\317D\"\210\211A@\242 >\204Q\315\316\317D\"\210\3208\242 >\204b\315\316\317D\"\210\3218\242 >\204t\315\316\317D\"\210\3228\242 >\204\206\315\316\317D\"\210\3238\242 >\204\230\315\316\317D\"\210\3248\242 >\204\254\315\316\317 D\"\210\3258\326\327\"\203\341\330 \331\332\"\216\333\317     \303 \257!\210)\210\334\335 \336\337#\313\340\341%\262\342\313\340\326#)\266\203\203\372\343\344\345 $\210\311\306C\"\204\303P\262\346\313\340\326#)\266\203\203+\326\347\"\203:\334\303\340\211\341%\262\202:\326\350\"\203:\334\303\340\211$\262\326\351\"\203L\334\303\340\211$\262\202:\352\313\340\326#)\266\203\203_\303\262\353\311\312C\"\"\207" [default-directory cl-struct-tramp-file-name-tags inhibit-changing-match-data "/" 0 "." file-name-absolute-p file-name-as-directory tramp-tramp-file-p tramp-run-real-handler expand-file-name nil tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 string-match "\\`\\(~\\)\\(/\\|\\'\\)" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] tramp-gvfs-maybe-open-connection replace-match tramp-get-connection-property "default-location" "~" t 1 "\\`\\(~[^/]*\\)\\(.*\\)\\'" tramp-error file-error "Cannot expand tilde in file `%s'" "^\\(afp\\|davs?\\|smb\\)$" "^/[^/]+\\(/\\.\\./?\\)" "^/\\.\\./?" "//" "^/\\.\\.?$" tramp-make-tramp-file-name] 20 (#$ . 42484)]) #@84 Return GVFS attributes association list of all files in DIRECTORY. (fn DIRECTORY) (defalias 'tramp-gvfs-get-directory-attributes #[257 "\306\307!\211\242 >\204\310\311\312D\"\210\211A@\242 >\204&\310\311\312D\"\210\3138\242 >\2047\310\311\312D\"\210\3148\242 >\204I\310\311\312D\"\210\3158\242 >\204[\310\311\312D\"\210\3168\242 >\204m\310\311\312D\"\210\3178\242 >\204\201\310\311\312 D\"\210\3208\321!\203\321\322\323\n$\211\n=\203\311\316\324C\32518 X\2052\314X\203\330\f\204\330\326\327\330U\203\276\331\202\323\332U\203\310\331\202\323\313U\203\322\333\202\323\334P#\210 \315Y\2052\330\332U\203\3351r\336!\203\367\337!\202\373\340\341\"q\210\342P\262\343\344 C\"\211\262)0\210\202\210\336!\203\345\346\"\262)\242 >\2052\326\347\350\351\"P$0\266\202:\266\352 \353\354\355\356\"\357\230?\205K\360\361 \362\363\364#\266\202\365!&\210r\340 !q\210eb\210\366\367!\203\272\370\371\314!B\372\371\313!B\373\371\332!BE\314\225Tb\210\366@\374@\375R!\203\237\371\332!\371\313!BB\262\313\225b\210\202\201\376\377\"\206\252\376\373\"A\237B B\262 \210\306y\210\202f) \262\201A \323$\210\211\262\266\210\202\370\316\324C\3251q X\205k\314X\203\f\204\326\327\330U\203\367\331\202\f\332U\203\331\202\f\313U\203 \333\202\f\334P#\210 \315Y\205k\330\332U\203K\3351Jr\336!\2030\337!\2024\340\341\"q\210\342P\262\343\344 C\"\211\262)0\210\202K\210\336!\203W\345\346\"\262)\242 >\205k\326\347\350\351\"P$0\266\202s\266\352\353\354\355\356\"\357\230?\205\204\360\361 \362\363\364#\266\202\365!&\210r\340!q\210eb\210\366\367!\203\363\370\371\314!B\372\371\313!B\373\371\332!BE\314\225Tb\210\366@\374@\375R!\203\330\371\332!\371\313!BB\262\313\225b\210\202\272\376\377\"\206\343\376\373\"A\237B\nB\262\n\210\306y\210\202\237)\266\210)\207" [last-coding-system-used cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-verbose tramp-inhibit-progress-reporter tramp-gvfs-file-attributes nil tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "directory-attributes" "directory gvfs attributes: %s" (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-gvfs-send-command "gvfs-ls" "-h" file-remote-p method "gdrive" "-n" "-a" "," mapconcat identity tramp-gvfs-url-file-name looking-at "^\\(.+\\)[[:blank:]]\\([[:digit:]]+\\)[[:blank:]](\\(.+?\\))[[:blank:]]\\(access::can-\\(?:execute\\|read\\|write\\)\\|name\\|owner::\\(?:group\\|user\\)\\|standard::\\(?:display-name\\|is-volatile\\|s\\(?:ize\\|ymlink-target\\)\\)\\|t\\(?:ime::\\(?:access\\|\\(?:chang\\|modifi\\)ed\\)\\|ype\\)\\|unix::\\(?:device\\|gid\\|inode\\|mode\\|nlink\\|uid\\)\\)=\\(.+?\\)" "type" match-string "standard::size" "name" "\\(" "\\|$\\)" assoc "standard::display-name" tramp-gvfs-file-attributes-with-gvfs-ls-regexp tramp-set-file-property] 24 (#$ . 44182)]) #@149 Return GVFS attributes association list of FILENAME. If FILE-SYSTEM is non-nil, return file system attributes. (fn FILENAME &optional FILE-SYSTEM) (defalias 'tramp-gvfs-get-root-attributes #[513 "\306\307!\211\242 >\204\310\311\312D\"\210\211A@\242 >\204&\310\311\312D\"\210\3138\242 >\2047\310\311\312D\"\210\3148\242 >\204I\310\311\312D\"\210\3158\242 >\204[\310\311\312D\"\210\3168\242 >\204m\310\311\312D\"\210\3178\242 >\204\201\310\311\312 D\"\210\3208\321!\203\264\322 \203\230\323\202\231\324\n$\211\n=\203\254\316\325\203\256\326\202\257\327D\3301L X\205F\314X\203\354\f\204\354\331\332\333U\203\322\327\202\347\334U\203\334\327\202\347\313U\203\346\335\202\347\336P#\210 \315Y\205F\333\334U\203&\3371%r\340!\203 \341!\202\342\343\"q\210\344P\262\345\346 C\"\211\262)0\210\202&\210\340!\2032\347\350\"\262)\242 >\205F\331\351\352\353\"P$0\266\202N\266 \203a\354 \355\356\357!$\210\202k\354 \355\357!#\210r\342 !q\210eb\210\360\f\203 \202\2014\306\361#\203\226\362\334!\362\313!B\nB\262\n\202u )\262\363 \203\250\323\202\251\324$\210\211\262\266\210\202\255\316\325 \203\301\326\202\302\327D\3301^ X\205X\314X\203\376\f\204\376\331\332\333U\203\344\327\202\371\334U\203\356\327\202\371\313U\203\370\335\202\371\336P#\210 \315Y\205X\333\334U\2038\33717r\340!\203\341!\202!\342\343\"q\210\344P\262\345\346 C\"\211\262)0\210\2028\210\340!\203D\347\350\"\262)\242 >\205X\331\351\352\353\"P$0\266\202`\266\n\203s\354\355\356\357!$\210\202}\354\355\357!#\210r\342!q\210eb\210\360 \203\221 \202\2234\306\361#\203\250\362\334!\362\313!B B\262 \202\207)\266\210)\207" [last-coding-system-used cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-verbose tramp-inhibit-progress-reporter tramp-gvfs-file-system-attributes-regexp nil tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-system-attributes" "file-attributes" "file%s gvfs attributes: %s" " system" "" (error) apply message 0 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-gvfs-send-command "gvfs-info" "--filesystem" tramp-gvfs-url-file-name re-search-forward t match-string tramp-set-file-property tramp-gvfs-file-attributes-with-gvfs-info-regexp] 23 (#$ . 47342)]) #@69 Return GVFS attributes association list of FILENAME. (fn FILENAME) (defalias 'tramp-gvfs-get-file-attributes #[257 "\303\304!!\262\305!\211\242>\204\306\307\310D\"\210\211A@\242>\204)\306\307\310D\"\210\3118\242>\204:\306\307\310D\"\210\3128\242>\204L\306\307\310D\"\210\3138\242>\204^\306\307\310D\"\210\3148\242>\204p\306\307\310D\"\210\3158\242>\204\204\306\307\310 D\"\210\3168\317\211?\205\220 \320!\211\211?\205\234 \321\322\320!\")\266\202\203\272\211G\311U\203\264\323\202\270\211\311\317O\262\324!P)\266\203\262\325\317\326\327#)\266\203\203\345\330\317\326\327#)\266\203\204\353\323\230\203\360\331 !\207\332\333\n!\334\335\f!!\"\207" [cl-struct-tramp-file-name-tags file-name-handler-alist inhibit-changing-match-data directory-file-name expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 nil file-local-name string-prefix-p "/:" "/" file-remote-p "^\\(afp\\|davs?\\|smb\\)$" t string-match "^/?\\([^/]+\\)$" tramp-gvfs-get-root-attributes assoc file-name-nondirectory tramp-gvfs-get-directory-attributes file-name-directory] 18 (#$ . 49904)]) #@76 Like `file-attributes' for Tramp files. (fn FILENAME &optional ID-FORMAT) (defalias 'tramp-gvfs-handle-file-attributes #[513 "\211\204\301\262\302!\303\211\211\211\211\211\211\211\211\211\211\211\f\205\236\304\305\"A\306\232\205'\307\262\f\304\310\"A\311\232?\205;\304\312\"A\262 \n;\203N\313\314\315\316#\317\"\262 \320\304\321\"A\206Y\322!\262\n \301=\203r\320\304\323\"A\206n\324!\202\205\304\325\"A\206\205\304\323\"A\206\205\262  \301=\203\235\320\304\326\"A\206\231\324!\202\260\304\327\"A\206\260\304\326\"A\206\260\262\330\320\304\331\"A\206\276\322!!\262\330\320\304\332\"A\206\316\322!!\262\330\320\304\333\"A\206\336\322!!\262\320\304\334\"A\206\355\322!\262\304\335\"A\211\203\336\320!!\202H\337\340\203 \341\202 \203\342\202\343\304\344\"A\345\232\203&\343\202'\346\304\347\"A\345\232\2036\343\2027\350\304\351\"A\345\232\203F\343\202G\352%\262\262\304\353\"A\211\203\\\320!\202b\354\355!!\262\262\304\356\"A\211\203v\320!\202|\357\355!!\262\262 \206\207\n\n\n\n\n\n\n\n\n\303  \257\f\207" [tramp-unknown-id-string integer tramp-gvfs-get-file-attributes nil assoc "type" "directory" t "standard::is-volatile" "TRUE" "standard::symlink-target" decode-coding-string replace-regexp-in-string "\\\\x\\([[:xdigit:]]\\{2\\}\\)" #[257 "\300\301\302\303\"\304\"!\207" [unibyte-string string-to-number match-string 1 16] 6 "\n\n(fn X)"] utf-8 string-to-number "unix::nlink" "0" "unix::uid" "-1" "owner::user" "unix::gid" "owner::group" seconds-to-time "time::access" "time::modified" "time::changed" "standard::size" "unix::mode" tramp-file-mode-from-int format "%s%s%s%s------" "d" "l" "-" "access::can-read" "FALSE" "r" "access::can-write" "w" "access::can-execute" "x" "unix::inode" tramp-get-inode tramp-dissect-file-name "unix::device" tramp-get-device] 27 (#$ . 51087)]) #@58 Like `file-executable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-gvfs-handle-file-executable-p #[257 "\302!\211\242>\204\303\304\305D\"\210\211A@\242>\204\"\303\304\305D\"\210\3068\242>\2043\303\304\305D\"\210\3078\242>\204E\303\304\305D\"\210\3108\242>\204W\303\304\305D\"\210\3118\242>\204i\303\304\305D\"\210\3128\242>\204}\303\304\305 D\"\210\3138\314!\203\253\315\316 $\211 =\203\252\317\n!\205\240\320 \321\"\262\322 \316$\210\207\317 !\205\267\320\321\"\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-executable-p" file-exists-p tramp-check-cached-permissions 120 tramp-set-file-property] 15 (#$ . 53001)]) #@76 Like `file-name-all-completions' for Tramp files. (fn FILENAME DIRECTORY) (defalias 'tramp-gvfs-handle-file-name-all-completions #[514 "\303\304\305\306#)\266\203?\205\"\307\310\311!!\211\242 >\204&\312\313\314D\"\210\211A@\242 >\2047\312\313\314D\"\210\3158\242 >\204H\312\313\314D\"\210\3168\242 >\204Z\312\313\314D\"\210\3178\242 >\204l\312\313\314D\"\210\3208\242 >\204~\312\313\314D\"\210\3218\242 >\204\222\312\313\314 D\"\210\3228\323!\203\355\324\325\n$\211\n=\203\345\326\327 !\211\203\326\211@\330\331\"A\332\230\203\311\333@!B\262\202\317\211@B\262A\266\202\202\256\262\262\262\334 \325$\210\211\262\266\210\202!\326\327\f!\211\203\211@\330\331\"A\332\230\203 \333@!B\262\202\211@B\262A\266\202\202\362\262\262\266\210\"\207" [inhibit-changing-match-data cl-struct-tramp-file-name-tags tramp-cache-undefined "/" nil t string-match all-completions tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-name-all-completions" ("./" "../") tramp-gvfs-get-directory-attributes assoc "type" "directory" file-name-as-directory tramp-set-file-property] 19 (#$ . 53830)]) #@78 Like `file-notify-add-watch' for Tramp files. (fn FILE-NAME FLAGS CALLBACK) (defalias 'tramp-gvfs-handle-file-notify-add-watch #[771 "\304!\262\305!\211\242>\204\306\307\310D\"\210\211A@\242>\204'\306\307\310D\"\210\3118\242>\2048\306\307\310D\"\210\3128\242>\204J\306\307\310D\"\210\3138\242>\204\\\306\307\310D\"\210\3148\242>\204n\306\307\310D\"\210\3158\242>\204\202\306\307\310 D\"\210\3168\317!\203\224\320 !\203\235\321\322\323$\210\324 !\325\n>\203\264\326\n>\203\264\327\202\307\325\n>\203\277\330\202\307\326\n>\205\307\331\332\333\334\335\336!\337\340\341!E$\342!\204\346\321\n\322\323$\202\356 \315\343\344!\345\346\347#\266\202D\3501\221\nX\205\213\312X\2031 \2041\332\351\352U\203\353\202,\354U\203!\353\202,\311U\203+\355\202,\356P#\210\n\313Y\205\213\352\354U\203k\3571jr\342!\203P\360!\202T\361\362\"q\210\363P\262\364\365 C\"\211\262)0\210\202k\210\342!\203w\366\367\"\262)\242>\205\213\332\370\371\372\"P$0\266\202\223\266\373\367\f#\210\373\374#\210\373\375#\210\373\376\377#\210\201@\201A\"\210\201B\201C\"\210\201D\201E\"\210\201F\352\"\204\310\201G!\204\341\321\322\323$\210\201H\201I\201J#\210\211)\207" [cl-struct-tramp-file-name-tags default-directory tramp-verbose tramp-inhibit-progress-reporter expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-gvfs-gio-tool-p file-directory-p tramp-error file-notify-error "Monitoring not supported for `%s'" file-name-directory change attribute-change (created changed changes-done-hint moved deleted attribute-changed) (created changed changes-done-hint moved deleted) (attribute-changed) apply start-process "gvfs-monitor" generate-new-buffer " *gvfs-monitor*" "gio" "monitor" tramp-gvfs-url-file-name processp "Run `%s', %S" process-command " " mapconcat identity (error) message 0 "" 1 "Warning: " "Tramp: " (error) process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " process-put events watch-name adjust-window-size-function ignore set-process-query-on-exit-flag nil set-process-filter tramp-gvfs-monitor-process-filter set-process-sentinel tramp-file-notify-process-sentinel tramp-accept-process-output process-live-p tramp-set-connection-property "gio-file-monitor" GPollFileMonitor] 23 (#$ . 55088)]) #@100 Read output from "gvfs-monitor-file" and add corresponding `file-notify' events. (fn PROC STRING) (defalias 'tramp-gvfs-monitor-process-filter #[514 "\305\306\"\305\307\"r\310!q\210)\311\312!!\203\272\313\314C\3151\270 X\205\262\316X\203X\n\204X\317\320\321U\203>\322\202S\323U\203H\322\202S\324U\203R\325\202S\326P#\210 \327Y\205\262\321\323U\203\222\3301\221r\331!\203w\310!\202{\332\333\"q\210\334P\262\335\336 C\"\211\262)0\210\202\222\210\331!\203\236\305\337\"\262)\242 >\205\262\317\340\341\342\"P$0\266\202\272\266\343\344D\3151\\ X\205V\316X\203\374\n\204\374\317\320\321U\203\342\322\202\367\323U\203\354\322\202\367\324U\203\366\325\202\367\326P#\210 \327Y\205V\321\323U\2036\33015r\331!\203\310!\202\332\333\"q\210\334P\262\335\336 C\"\211\262)0\210\2026\210\331!\203B\305\337\"\262)\242 >\205V\317\340\341\342\"P$0\266\202^\266P\262\345\346\347#\262\345\350\351#\262\345\352\353#\262\354\355\356\357#)\266\203\203\220\360!\210\357\361\"\2039\362\323\"\362\327\"\363\362\324 \"!\364\322\355\211 $\262\357\"\203\302\364\355\211$\262\365\355\356\357#)\266\203\203\332\366!\262\202\302\357\206\341\322\"\203\355\364\355\211$\262\365\206\363\322\355\356\357#)\266\203\203 \366!\262\202\355\211\367>\203\305\n\370\"\230\203\360 !\210\211\235\2034\371\372!\2034\372 F!\210\266\202\220G\321U\203C\355\262\203\351\313\373C\3151\347 X\205\341\316X\203\207\n\204\207\317\320\321U\203m\322\202\202\323U\203w\322\202\202\324U\203\201\325\202\202\326P#\210 \327Y\205\341\321\323U\203\301\3301\300r\331!\203\246\310!\202\252\332\333\"q\210\334P\262\335\336 C\"\211\262)0\210\202\301\210\331!\203\315\305\337\"\262)\242 >\205\341\317\340\341\342\"P$0\266\202\351\266\374\307#\207" [default-directory tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags inhibit-changing-match-data process-get events rest-string process-buffer regexp-quote tramp-gvfs-url-file-name 10 "Previous string:\n%s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp tramp-get-connection-buffer dont-create "\n%s" append buffer-string vector tramp-debug-message format "(%d) # " 6 "%S\n%s" tramp-compat-string-replace "attributes changed" "attribute-changed" "changes done" "changes-done-hint" "renamed to" "moved" "Monitoring not supported\\|No locations given" nil t string-match delete-process "^.+:[[:space:]]\\(.+\\):[[:space:]]\\(attribute-changed\\|c\\(?:hange\\(?:d\\|s-done-hint\\)\\|reated\\)\\|deleted\\|moved\\|pre-unmount\\|unmounted\\)\\([[:space:]]\\(.+\\)\\)?$" match-string intern-soft replace-match "%\\([[:xdigit:]]\\{2\\}\\)" url-unhex-string (moved deleted) watch-name functionp file-notify-callback "Rest string:\n%s" process-put] 16 (#$ . 57564)]) #@56 Like `file-readable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-gvfs-handle-file-readable-p #[257 "\302!\211\242>\204\303\304\305D\"\210\211A@\242>\204\"\303\304\305D\"\210\3068\242>\2043\303\304\305D\"\210\3078\242>\204E\303\304\305D\"\210\3108\242>\204W\303\304\305D\"\210\3118\242>\204i\303\304\305D\"\210\3128\242>\204}\303\304\305 D\"\210\3138\314!\203\343\315\316 $\211 =\203\342\317\n!\205\330\320 \321\"\206\330\322\n!;\203\271\323\324 !\322\f!P!\206\330\325 \326\"\327 \326\"\3068\262U?\205\330\330\331\332\f!\"A\333\230?\262\334 \316$\210\207\317 !\205'\320\321\"\206'\322 !;\203\323\324\n!\322 !P!\206'\325\326\"\327\n\326\"\3068\262U?\205'\330\331\332 !\"A\333\230?\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-readable-p" file-exists-p tramp-check-cached-permissions 114 file-symlink-p file-readable-p file-remote-p tramp-get-remote-uid integer file-attributes assoc "access::can-read" tramp-gvfs-get-file-attributes "FALSE" tramp-set-file-property] 15 (#$ . 60507)]) #@57 Like `file-system-info' for Tramp files. (fn FILENAME) (defalias 'tramp-gvfs-handle-file-system-info #[257 "\301\302!!\262\303!\211\242>\204\304\305\306D\"\210\211A@\242>\204)\304\305\306D\"\210\3078\242>\204:\304\305\306D\"\210\3108\242>\204L\304\305\306D\"\210\3118\242>\204^\304\305\306D\"\210\3128\242>\204p\304\305\306D\"\210\3138\242>\204\204\304\305\306 D\"\210\3148\315\316#\210\317 \320\"\321\322\"A\321\323\"A\321\324\"A\204\257\204\257\211\205\315\325\206\265\326!\325\206\274\326!\325\206\303\326!\325\206\312\326!ZE\207" [cl-struct-tramp-file-name-tags directory-file-name expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-property "file-system-attributes" tramp-gvfs-get-root-attributes file-system assoc "filesystem::size" "filesystem::used" "filesystem::free" string-to-number "0"] 18 (#$ . 61730)]) #@68 Like `make-directory' for Tramp files. (fn DIR &optional PARENTS) (defalias 'tramp-gvfs-handle-make-directory #[513 "\301\302!!\262\303!\211\242>\204\304\305\306D\"\210\211A@\242>\204)\304\305\306D\"\210\3078\242>\204:\304\305\306D\"\210\3108\242>\204L\304\305\306D\"\210\3118\242>\204^\304\305\306D\"\210\3128\242>\204p\304\305\306D\"\210\3138\242>\204\204\304\305\306 D\"\210\3148\204\234\315\n!\203\234\316\317\f#\210\320\"\210\321 \322\323\"\216\324 !\n\203\276\325!\204\276\326\f\"\210\327\n\330\331!#\206\323\n\205\323\325\f!?\205\337\316\n\332\333$\262)\207" [cl-struct-tramp-file-name-tags directory-file-name expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p tramp-error file-already-exists tramp-flush-directory-properties match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] file-name-directory file-directory-p make-directory tramp-gvfs-send-command "gvfs-mkdir" tramp-gvfs-url-file-name file-error "Couldn't make directory %s"] 17 (#$ . 62679)]) #@91 Like `rename-file' for Tramp files. (fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS) (defalias 'tramp-gvfs-handle-rename-file #[770 "\300!\262\300!\262\301!\204\301!\203 \302\303\304\305&\207\306\307E\"\207" [expand-file-name tramp-tramp-file-p tramp-gvfs-do-copy-or-rename-file rename keep-date preserve-uid-gid tramp-run-real-handler rename-file] 10 (#$ . 63808)]) #@54 Call "gio set ..." if possible. (fn VEC &rest ARGS) (defalias 'tramp-gvfs-set-attribute #[385 "\301\3028P\303\304#\2051\305\306\307$\2061r\310!q\210eb\210\311\304\312!)\262\2050\313\314#)\207" [inhibit-changing-match-data "gvfs-set-attribute-" 3 tramp-get-connection-property t apply tramp-gvfs-send-command "gvfs-set-attribute" tramp-get-connection-buffer "gio: Operation not supported" looking-at tramp-set-connection-property nil] 8 (#$ . 64202)]) #@75 Like `set-file-modes' for Tramp files. (fn FILENAME MODE &optional FLAG) (defalias 'tramp-gvfs-handle-set-file-modes #[770 "\301!\211\242>\204\302\303\304D\"\210\211A@\242>\204\"\302\303\304D\"\210\3058\242>\2043\302\303\304D\"\210\3068\242>\204E\302\303\304D\"\210\3078\242>\204W\302\303\304D\"\210\3108\242>\204i\302\303\304D\"\210\3118\242>\204}\302\303\304 D\"\210\3128\313\"\210\314\n\315=\203\225\316\202\226\317\320\321!\322\323!&\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-properties tramp-gvfs-set-attribute nofollow "-nt" "-t" "uint32" tramp-gvfs-url-file-name "unix::mode" number-to-string] 19 (#$ . 64674)]) #@75 Like `set-file-times' for Tramp files. (fn FILENAME &optional TIME FLAG) (defalias 'tramp-gvfs-handle-set-file-times #[769 "\303!\211\242>\204\304\305\306D\"\210\211A@\242>\204\"\304\305\306D\"\210\3078\242>\2043\304\305\306D\"\210\3108\242>\204E\304\305\306D\"\210\3118\242>\204W\304\305\306D\"\210\3128\242>\204i\304\305\306D\"\210\3138\242>\204}\304\305\306 D\"\210\3148\315\"\210\316\n\317=\203\225\320\202\226\321\322\323!\324\325\326\203\263\327 \"\204\263\327\n\"\203\270\330 \202\272\"&\207" [cl-struct-tramp-file-name-tags tramp-time-doesnt-exist tramp-time-dont-know tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-properties tramp-gvfs-set-attribute nofollow "-nt" "-t" "uint64" tramp-gvfs-url-file-name "time::modified" format-time-string "%s" tramp-compat-time-equal-p current-time] 22 (#$ . 65445)]) #@124 The uid of the remote connection VEC, in ID-FORMAT. ID-FORMAT valid values are `string' and `integer'. (fn VEC ID-FORMAT) (defalias 'tramp-gvfs-handle-get-remote-uid #[514 "\211\301=\203\242>\204\302\303\304D\"\210\3058\207\306\307\310#\211\205-\311\312\"\"\3058\262\207" [cl-struct-tramp-file-name-tags string signal wrong-type-argument tramp-file-name 2 tramp-get-connection-property "default-location" nil file-attributes tramp-make-tramp-file-name] 7 (#$ . 66379)]) #@124 The gid of the remote connection VEC, in ID-FORMAT. ID-FORMAT valid values are `string' and `integer'. (fn VEC ID-FORMAT) (defalias 'tramp-gvfs-handle-get-remote-gid #[514 "\300\301\302#\211\205\303\304\"\"\3058\262\207" [tramp-get-connection-property "default-location" nil file-attributes tramp-make-tramp-file-name 3] 7 (#$ . 66872)]) #@81 Like `tramp-set-file-uid-gid' for Tramp files. (fn FILENAME &optional UID GID) (defalias 'tramp-gvfs-handle-set-file-uid-gid #[769 "\301!\211\242>\204\302\303\304D\"\210\211A@\242>\204\"\302\303\304D\"\210\3058\242>\2043\302\303\304D\"\210\3068\242>\204E\302\303\304D\"\210\3078\242>\204W\302\303\304D\"\210\3108\242>\204i\302\303\304D\"\210\3118\242>\204}\302\303\304 D\"\210\3128\313\"\210\314\n!\203\237\315\316\317\320!\321\322!&\210\314 !\205\266\315\316\317\320!\323\322!&\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-properties natnump tramp-gvfs-set-attribute "-t" "uint32" tramp-gvfs-url-file-name "unix::uid" number-to-string "unix::gid"] 19 (#$ . 67225)]) #@66 Return activation URI to be used in gio commands. (fn FILENAME) (defalias 'tramp-gvfs-activation-uri #[257 "\303!\203a\304!\211\242>\204\305\306\307D\"\210\211A@\242>\204(\305\306\307D\"\210\3108\242>\2049\305\306\307D\"\210\3118\242>\204K\305\306\307D\"\210\3128\242>\204]\305\306\307D\"\210\3138\242>\204o\305\306\307D\"\210\3148\242>\204\203\305\306\307 D\"\210\3158\316\230\203\223\317!\210\320\321 #\211 =\203`\322\262\323\230\203\254\324\262\325\230\203\276\326\262\327 !P\262\316\230\203 \320 \330\331#\211\203\211\242\n>\204\335\305\306\332D\"\210\211A@\262 \211\242\n>\204\360\305\306\332D\"\210\3108\262\211\242\n>\204\305\306\332D\"\210\3118\262\210\203\203\333Q\262\334\205%\335 !\205.\335!;\203;\336!\202=\337\340\331\331\211\341\331\341\211& \266\205!\262\342 \321#\210\207\334\337\340\343\331\211\211\211\211\211\211\341\331\341\211& !\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined cl-struct-tramp-media-device-tags tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 "mtp" tramp-get-media-device tramp-get-connection-property "activation-uri" "/" "gdrive" "google-drive" "nextcloud" "davs" tramp-gvfs-get-remote-prefix "media-device" nil tramp-media-device ";" url-recreate-url url-hexify-string string-to-number record url t tramp-set-connection-property "file"] 30 (#$ . 68049)]) #@47 Return FILENAME in URL syntax. (fn FILENAME) (defalias 'tramp-gvfs-url-file-name #[257 "\211\305\211?\205\306!\211\211?\205\307\310\306!\")\266\202\2032\211G\311U\203,\312\2020\211\311\305O\262\313!P)\266\203\262\314 B\315!\316\317O\320\321!!P\322!\203\366\323!\324\325D\3261\364\nX\205\356\327X\203\224 \204\224\330\331\316U\203z\332\202\217\333U\203\204\332\202\217\311U\203\216\334\202\217\335P#\210\n\336Y\205\356\316\333U\203\316\3371\315r\340!\203\263\341!\202\267\342\343\"q\210\344P\262\345\346 C\"\211\262)0\210\202\316\210\340!\203\332\347\350\"\262)\242\f>\205\356\330\351\352\353\"P$0\266\202\366\266)\207" [file-name-handler-alist url-unreserved-chars tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags nil file-local-name string-prefix-p "/:" 2 "/" file-remote-p 47 tramp-gvfs-activation-uri 0 -1 url-hexify-string tramp-file-local-name tramp-tramp-file-p tramp-dissect-file-name 10 "remote file `%s' is URL `%s'" (error) 3 apply message "" 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) # "] 12 (#$ . 69538)]) #@58 Create a D-Bus object path from FILENAME. (fn FILENAME) (defalias 'tramp-gvfs-object-path #[257 "\301\302!\"\207" [tramp-gvfs-path-tramp expand-file-name dbus-escape-as-identifier] 4 (#$ . 70799)]) #@62 Retrieve file name from D-Bus OBJECT-PATH. (fn OBJECT-PATH) (defalias 'tramp-gvfs-file-name #[257 "\300\301\302\303#!\207" [dbus-unescape-from-identifier replace-regexp-in-string "^.*/\\([^/]+\\)$" "\\1"] 6 (#$ . 71006)]) #@149 Return the host name part of URL, a string. We cannot use `url-host', because `url-generic-parse-url' returns a downcased host name only. (fn URL) (defalias 'tramp-gvfs-url-host #[257 "\211;\205\300\301\"\205\302\303\"\207" [string-match "^[[:alnum:]]+://\\([^/:]+\\)" match-string 1] 4 (#$ . 71237)]) #@105 Implementation for the "org.gtk.vfs.MountOperation.askPassword" method. (fn MESSAGE USER DOMAIN FLAGS) (defalias 'tramp-gvfs-handler-askpassword #[1028 "\306\307!!\310\311\312\313\"\203\314\315\316 \"!\202\317#\320\3211\333\322!\211\242 >\2042\323\324\325D\"\210\211A@\242 >\204C\323\324\325D\"\210\3268\242 >\204T\323\324\325D\"\210\3278\242 >\204f\323\324\325D\"\210\3308\242 >\204x\323\324\325D\"\210\3318\242 >\204\212\323\324\325D\"\210\3328\242 >\204\236\323\324\325 D\"\210\3338 G\334U\203\271\335\f\n\"\334U\204\271\336\337!\262\fG\334U\203\320\335\f \"\334U\204\320\336\340!\262 \332\341F\3421w\fX\205q\327X\203 \204\343\344\334U\203\375\345\202\316U\203\345\202\326U\203\346\202\347P#\210\f\330Y\205q\334\316U\203Q\3501Pr\351!\2036\352!\202:\353\354\"q\210\355P\262\356\357 C\"\211\262)0\210\202Q\210\351!\203]\360\361\"\262)\242 >\205q\343\362\310\363\"P$0\266\202y\266\364\365\320#\204\207\366!\210\367\370 ! \"\262 ;\203\272\371\320\n\n\242 >\204\253\323\324\325 D\"\210\326 8\320\334\257\266\210\202\331\320\371\345\n\242 >\204\315\323\324\325 D\"\210\326 8\320\334\257\266\2100\207\210\320\371\345\211\211\320\334\257\207" [last-input-event cl-struct-tramp-file-name-tags tramp-gvfs-password-need-username tramp-gvfs-password-need-domain tramp-verbose tramp-inhibit-progress-reporter tramp-gvfs-file-name dbus-event-path-name format "%s for %s " string-match "\\([pP]assword\\|[pP]assphrase\\)" capitalize match-string 1 "Password" nil (quit) tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 0 logand read-string "User name: " "Domain name: " "%S %S %S %d" (error) apply message "" "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message "(%d) # " tramp-get-connection-property "first-password-request" tramp-clear-passwd tramp-read-passwd tramp-get-connection-process t] 25 (#$ . 71553)]) #@95 Implementation for the "org.gtk.vfs.MountOperation.askQuestion" method. (fn MESSAGE CHOICES) (defalias 'tramp-gvfs-handler-askquestion #[514 "\306 \307\310\"\216\311\205 ?\312\313\314\315 !!!\211\242\f>\204(\316\317\320D\"\210\211A@\242\f>\2049\316\317\320D\"\210\3218\242\f>\204J\316\317\320D\"\210\3228\242\f>\204\\\316\317\320D\"\210\3238\242\f>\204n\316\317\320D\"\210\3248\242\f>\204\200\316\317\320D\"\210\3258\242\f>\204\224\316\317\320 D\"\210\3268\325\327D\3301< X\2056\322X\203\334>\204\334\331\332\333U\203\302\334\202\327\335U\203\314\334\202\327\321U\203\326\336\202\327\337P#\210 \323Y\2056\333\335U\203\3401r\341!\203\373\342!\202\377\343\344\"q\210\345P\262\346\347 C\"\211\262)0\210\202\210\341!\203\"\350\351\"\262)\242\f>\2056\331\352\353\354\"P$0\266\202>\266\3551\267\311\312\356\357 !?#\211?=\203\257\360\361\311\"r\211q\210\307\362\"\216\334\312C\307\363#\216\211\364 \240\210\332\365\334\"\210c\210db\210 \203\211\332\365\"\210\202\215\366p!\210\367\370 `{\371P!\203\234\333\202\235\335)\266\202*\262\262\372\357\f!#\210\211\262E0\202\274\210\312\311\335E\262 \325\365 C\3301` X\205Z\322X\203>\204\331\332\333U\203\346\334\202\373\335U\203\360\334\202\373\321U\203\372\336\202\373\337P#\210 \323Y\205Z\333\335U\203:\34019r\341!\203\342!\202#\343\344\"q\210\345P\262\346\347 C\"\211\262)0\210\202:\210\341!\203F\350\351\"\262)\242\f>\205Z\331\352\353\354\"P$0\266\202b\266AA@\333U\204t\373\374\375\374$\210\266\210*\266\203)\207" [use-dialog-box noninteractive enable-recursive-minibuffers last-input-event cl-struct-tramp-file-name-tags tramp-verbose current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] t nil tramp-dissect-file-name tramp-gvfs-file-name dbus-event-path-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 "%S %S" (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " (quit) tramp-get-connection-property tramp-get-process generate-new-buffer " *temp*" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] #[0 "\300\205\301\242\203\302\303\301\242\"\207\302\304!\207" [V0 V1 message #1="%s" nil] 3] current-message #1# pop-to-buffer yes-or-no-p line-beginning-position " " tramp-set-connection-property tramp-set-file-property "/" "fuse-mountpoint" tramp-inhibit-progress-reporter tramp-cache-undefined] 24 (#$ . 73642)]) #@126 Signal handler for the "org.gtk.vfs.MountTracker.mounted" and "org.gtk.vfs.MountTracker.unmounted" signals. (fn MOUNT-INFO) (defalias 'tramp-gvfs-handler-mounted-unmounted #[257 "\3061\307!\211@;\203\211A\262\202\310A@!AA@\310@!\310AAA@!\310\311\312A@\"A@!\310\311\313A@\"A@!\310\311\314A@\"A@!\310\311\315A@\"\206[\311\316A@\"A@!\310\311\317 A@\"A@!\310\311\320\nA@\"A@!\310\311\321 A@\"A@!\322\323\"\203\216\324\325\"\262\326\230\203\236\327\230\203\236\330\262\330\230\203\271  \331\332\322#)\266\203\203\271\333\262\334\230\203\303\335\262\336\230\203\211;\203\337!\262\340!\262\341! >\204\350\342\343\344D\"\210\211\325H\262\341! >\204\374\342\343\344D\"\210\211\345H\262\341! >\204\342\343\344D\"\210\211\346H\262\f\235\203j\347\331!\210\350\351F\352\331#\211\203i\211\242 >\204>\342\343\353D\"\210\211A@\262\211\242 >\204Q\342\343\353D\"\210\3548\262\211\242 >\204d\342\343\353D\"\210\3468\262\210@\235\205\374\355\356\357&!\211\242 >\204\220\342\343\353D\"\210\211A@\242 >\204\241\342\343\353D\"\210\3458\242 >\204\262\342\343\353D\"\210\3608\242 >\204\304\342\343\353D\"\210\3548\242 >\204\326\342\343\353D\"\210\3468\242 >\204\350\342\343\353D\"\210\3618\242 >\204\374\342\343\353 D\"\210\3628\361\363\364!D\3651\271AX\205\263\360X\203GB\204G\366\367\370U\203-\357\202B\325U\2037\357\202B\345U\203A\371\202B\372P#\210A\354Y\205\263\370A\325U\203\211\3731\210r\374!\203h\375!\202l\376\377\"q\210\201CP\262\201D\201E C\"\211\262)0\210\202\211\210\374!\203\231\201F\201G\"\262)\242 >\205\263\366\201H\201I\201J\"P$0\266\202\273\266\201K\201L\201M#\210\227\201N\230\203\340\201O\201L\"\266\225\202\376\201P\201L\201Q$\210\201R\201S#\266\210\266\2150\207\210\331\207" [last-input-event tramp-gvfs-nextcloud-default-prefix-regexp inhibit-changing-match-data cl-struct-url-tags tramp-media-methods cl-struct-tramp-file-name-tags (error) dbus-event-member-name tramp-gvfs-dbus-byte-array-to-string assoc "type" "user" "domain" "host" "server" "port" "ssl" "uri" string-match "^\\(afp\\|smb\\)" match-string 1 "dav" "true" "davs" nil t "nextcloud" "google-drive" "gdrive" "http" tramp-gvfs-url-host url-generic-parse-url type-of signal wrong-type-argument url 2 5 tramp-get-media-devices tramp-get-connection-property tramp-media-device "vector" tramp-file-name 4 tramp-dissect-file-name tramp-make-tramp-file-name "" 3 6 7 "%s %s" tramp-gvfs-stringify-dbus-message (error) apply message 0 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create tramp-gvfs-methods tramp-verbose tramp-inhibit-progress-reporter "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-flush-file-property "/" "list-mounts" "unmounted" tramp-flush-file-properties tramp-set-file-property "fuse-mountpoint" tramp-set-connection-property "default-location"] 32 (#$ . 76316)]) (byte-code "\203,\303\304\305 \n\306\307&\210\303\304\305 \n\310\307&\210\303\304\305 \n\311\307&\210\303\304\305 \n\312\307&\210\305\207" [tramp-gvfs-enabled tramp-gvfs-path-mounttracker tramp-gvfs-interface-mounttracker dbus-register-signal :session nil "mounted" tramp-gvfs-handler-mounted-unmounted "Mounted" "unmounted" "Unmounted"] 7) #@59 Check, whether the location is already mounted. (fn VEC) (defalias 'tramp-gvfs-connection-mounted-p #[257 "\306\307\310\311$\206\310\3122\310\313\307!\203S\306\307\314$\211=\203M\315\316 \n \f\257\311\"\31716\320\321#0\202B \205@\322@A\"\262\262\262\323\307\314$\210\211\262\202x\315\316 \n \f\257\311\"\3241j\320\321#0\202v \205t\322@A\"\262\262\211\203\304\211@\211@;\203\213\211A\262\202~\325A@!AA@\325@!\325AAA@!\325\326\327A@\"A@!\325\326\330A@\"A@!\325\326\331A@\"A@!\325\326\332A@\"\206\321\326\333A@\"A@!\325\326\334 A@\"A@!\325\326\335\nA@\"A@!\325\326\336 A@\"A@!\325\326\337\fA@\"A@\206 \326\340\fA@\"A@!\341\342 \"\203\343\344 \"\262\345\230\203+\346\230\203+\347\262\347\230\203H@\n\311\350A\341#)\266\203\203H\351\262\352\230\203R\353\262\354\230\203\247;\203\247\355!\262\356!\262\357!B>\204x\322\360\361D\"\210\344H\262\357!B>\204\215\322\360\361D\"\210\362H\262\357!B>\204\242\322\360\361D\"\210\363H\262C\235\203\364!\210\365\366 F\367\311#\211\203\211\242D>\204\323\322\360\370D\"\210\211A@\262 \211\242D>\204\347\322\360\370D\"\210\3718\262\211\242D>\204\373\322\360\370D\"\210\3638\262\210\242D>\204\322\360\370D\"\210A@\230\203\273\242D>\204/\322\360\370D\"\210\3628\230\203\273\242D>\204I\322\360\370D\"\210\3728\230\203\273\242D>\204c\322\360\370D\"\210\3718\230\203\273\242D>\204}\322\360\370D\"\210\3638\230\203\273\373\374\206\214\375!P\376!\311\350A\341#)\266\203\203\273\323\307\310$\210\377\201E #\210\201F\312\350\"\210\266\fA\266\202\202x\311\2620\207" [tramp-cache-undefined tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker tramp-gvfs-interface-mounttracker tramp-gvfs-listmounts dbus-debug tramp-get-file-property "/" "fuse-mountpoint" nil mounted file-name-absolute-p "list-mounts" append :session (dbus-error) tramp-dbus-function dbus-call-method signal tramp-set-file-property (dbus-error) tramp-gvfs-dbus-byte-array-to-string assoc "type" "user" "domain" "host" "server" "port" "ssl" "uri" "share" "volume" string-match "^\\(afp\\|smb\\)" match-string 1 "dav" "true" "davs" t "nextcloud" "google-drive" "gdrive" "http" tramp-gvfs-url-host url-generic-parse-url type-of wrong-type-argument url 2 5 tramp-get-media-devices tramp-get-connection-property tramp-media-device "vector" tramp-file-name 4 3 "^/" regexp-quote "" tramp-file-name-unquote-localname tramp-set-connection-property tramp-gvfs-nextcloud-default-prefix-regexp inhibit-changing-match-data cl-struct-url-tags tramp-media-methods cl-struct-tramp-file-name-tags "default-location" throw] 22 (#$ . 79731)]) #@49 Unmount the object identified by VEC. (fn VEC) (defalias 'tramp-gvfs-unmount #[257 "\211\242>\204\301\302\303D\"\210\304\233\211\305\240\266\211\242>\204$\301\302\303D\"\210\306\233\211\307\240\266\310!\203>\311\312\313\314\315!!$\210\310!\203M\316\307\211\317#\210\202>\320\321\322#\207" [cl-struct-tramp-file-name-tags signal wrong-type-argument tramp-file-name 6 "/" 7 nil tramp-gvfs-connection-mounted-p tramp-gvfs-send-command "gvfs-mount" "-u" tramp-gvfs-url-file-name tramp-make-tramp-file-name read-event 0.1 tramp-cleanup-connection keep-debug keep-password] 8 (#$ . 82462)]) #@120 Construct a mount-spec entry to be used in a mount_spec. It was "a(say)", but has changed to "a{sv})". (fn KEY VALUE) (defalias 'tramp-gvfs-mount-spec-entry #[514 "\302\303\304\305#)\266\203\203\306\307\310!DE\207\311\310!E\207" [tramp-gvfs-mountlocation-signature inhibit-changing-match-data "^(aya{sv})" nil t string-match :dict-entry :variant tramp-gvfs-dbus-string-to-byte-array :struct] 9 (#$ . 83075)]) #@77 Return a mount-spec for "org.gtk.vfs.MountTracker.mountLocation". (fn VEC) (defalias 'tramp-gvfs-mount-spec #[257 "\303!\211\203\211\242>\204\304\305\306D\"\210\211A@\202,\242 >\204)\304\305\307D\"\210A@\242 >\204:\304\305\307D\"\210\3108\242 >\204L\304\305\307D\"\210\3118\203h\242>\204b\304\305\306D\"\210\3108\202z\242 >\204w\304\305\307D\"\210\3128\203\223\242>\204\215\304\305\306D\"\210\3118\202\246\242 >\204\242\304\305\307D\"\210\3138\314!\315\316\"\205\265\317\320\"\321\322\323\315#)\266\203\203\312\324\202\313\325\326\327 \330\230\203\346\331\332\333\"\331\334 \"\331\335\"E\202\207\336\n\322\323\315#)\266\203\203 \331\332\337\"\331\340 \"\331\341\"E\202\207 \342\230\203\"\331\332\343\"\331\340 \"\331\344\"E\202\207 \345\230\2036\331\332\346\"\331\340 \"D\202\207 \347\230\203J\331\332\350\"\331\340 \"D\202\207\351\n\322\323\315#)\266\203\203|\331\332\352\"\331\353\354\355\356\322\357\322\211\323\322\323\211& !\"D\202\207\331\332 \"\331\340 \"D \205\222\331\360 \"C \205\235\331\361 \"C\205\250\331\362\n\"C$B\363 \322\323\315#)\266\203\203\311\315\364\"\203\311\317\365\"\202\315\366 !\367\370!E\207" [cl-struct-tramp-media-device-tags cl-struct-tramp-file-name-tags inhibit-changing-match-data tramp-get-media-device signal wrong-type-argument tramp-media-device tramp-file-name 2 3 4 5 tramp-file-name-unquote-localname string-match "^/?\\([^/]+\\)" match-string 1 "^davs\\|^nextcloud" nil t "true" "false" :array append "smb" tramp-gvfs-mount-spec-entry "type" "smb-share" "server" "share" "^dav\\|^nextcloud" "dav" "host" "ssl" "afp" "afp-volume" "volume" "gdrive" "google-drive" "nextcloud" "owncloud" "^http" "http" "uri" url-recreate-url record url "/" "user" "domain" "port" "^dav" "^/?[^/]+" 0 tramp-gvfs-get-remote-prefix :struct tramp-gvfs-dbus-string-to-byte-array] 30 (#$ . 83502)]) #@165 Signal handler for the "org.gtk.Private.RemoteVolumeMonitor.VolumeAdded" and "org.gtk.Private.RemoteVolumeMonitor.VolumeRemoved" signals. (fn DBUS-NAME ID VOLUME) (defalias 'tramp-gvfs-handler-volumeadded-volumeremoved #[771 "\3061\307!\310\3118!\312! >\204\313\314\315D\"\210\211\316H\317\320\321\322\323\324\325\nA@#$\326\320\322\327\311\n8!\330\312 ! >\204G\313\314\315 D\"\210\311H&\n\235\205\331\332\333\n!D\3341\367 X\205\361\335X\203\227\f\204\227\336\337\340U\203}\341\202\222\316U\203\207\341\202\222\342U\203\221\343\202\222\344P#\210 \345Y\205\361\340\316U\203\321\3461\320r\347!\203\266\350!\202\272\351\352\"q\210\353P\262\354\355 C\"\211\262)0\210\202\321\210\347!\203\335\356\357\"\262)\242 >\205\361\336\360\361\362\"P$0\266\202\371\266\363!\210\363!\210\364\365!\266\2050\207\210\365\207" [last-input-event cl-struct-url-tags tramp-media-methods tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags (error) dbus-event-member-name url-generic-parse-url 5 type-of signal wrong-type-argument url 1 make-tramp-file-name :method "mtp" :host tramp-compat-string-replace " " "_" make-tramp-media-device tramp-gvfs-url-host :port 6 "%s %s" tramp-gvfs-stringify-dbus-message (error) 3 apply message 0 "" 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) # " tramp-flush-connection-properties tramp-get-media-devices nil] 18 (#$ . 85459)]) (byte-code "\203\303\304\305 \n\306\307&\210\303\304\305 \n\310\307&\210\305\207" [tramp-gvfs-enabled tramp-gvfs-path-remotevolumemonitor tramp-gvfs-interface-remotevolumemonitor dbus-register-signal :session nil "VolumeAdded" tramp-gvfs-handler-volumeadded-volumeremoved "VolumeRemoved"] 7) #@96 The prefix of the remote connection VEC. This is relevant for GNOME Online Accounts. (fn VEC) (defalias 'tramp-gvfs-get-remote-prefix #[257 "\303\304#\211=\2034\242 >\204\305\306\307D\"\210A@\n\235\203%\310!\210\303\311!\304\312#\262\313\304#\210\207" [tramp-cache-undefined cl-struct-tramp-file-name-tags tramp-goa-methods tramp-get-connection-property "prefix" signal wrong-type-argument tramp-file-name tramp-get-goa-accounts tramp-get-goa-account "/" tramp-set-connection-property] 6 (#$ . 87334)]) #@173 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. (fn VEC) (defalias 'tramp-gvfs-maybe-open-connection #[257 "\306!\204 \307\310\211\"\210\211\311\312!!\2048\313\314\315!\316\312!\317\320\321\322\323\320\324\320&\f\325\326#\210\327\330\"\210\331!\266\332!?\205\317\211\242 >\204M\333\334\335D\"\210\211A@\242 >\204^\333\334\335D\"\210\3368\242 >\204o\333\334\335D\"\210\3378\340!\341\342\343\"!\344\230\203\216\345\230\203\216\346\347\"\210\350\330\320\351#)\266\203\203\252\345\230\203\252\346\352\"\210\353\230\203\274\345\230\203\274\346\354\"\210 \235\203\335\355!\210\356\357!\360\320#\203\335\346\361\342 \343\"#\210\f\204\345 \203\236\362\363@#\210\364\365AB\366\367&\210\364\365AB\370\367&\210\364\365AB\371\372&\210\364\365AB\373\372&\210\374C\330\320\351#)\266\203\203y\375\365DEFG\257\376\377 !\201N\201O\201P\365!\201Q\257E\"\201R1i\201S\201T#0\266\202\275H\205t\333@A\"\266\202\275\375\365DEFG\257\376\377 !\201O\201P\365!\201Q\257\"\201U1\260\201S\201T#0\266\202\275H\205\273\333@A\"\266\201V2\201W\201X\201I\"\206\324I\330\201Y#\211JBJ\201Z\201[\"\216\201\\\345\201]\330$?\205\201^\330\211\201_#\210\202\350*\2620\211\201V=\203Y\242 >\204 \333\334\335 D\"\210\3368G\201`U\203A\201a\201b\201c\n%\266\202Z\201a\201b\201d &\266\202Z\210\201\\\345\201]\201e$\345\230\203y\201a\201b\201f#\210\201g1\220\201hK!\205\213K 0\210\202\221\210\362\201i!\201j\320#\207\201k\201lG\201`U\203\275\201m\201n\n#\202\312\201m\201o $C\201p1\231LX\205\223\201kX\203M\204\201q\201r\201`U\203\371\201e\202\201sU\203\201e\202\336U\203\201t\202\201uP#\210L\337Y\205\223\201`L\201sU\203g\201v1fr\201w!\203F\201x!\202L\312\201y\"q\210\201zP\262\375\201{ C\"\211\262)0\210\202g\210\201w!\203w\201|\326\"\262)\242 >\205\223\201q\201}\201m\201~\"P$0\266\202\233\266\201CM?\205\334\201kL\201k^X\205\334\201\200G\201`U\203\314\201m\201n #\202\331\201m\201o\n$\330\211#\211\205\356\201\201\201k\201_\201\202$\262\201Z\201\203    &\216M\206 \211M\362\363@#\210\364\365AB\366\367&\210\364\365AB\370\367&\210\364\365AB\371\372&\210\364\365AB\373\372&\210\374C\330\320\351#)\266\203\203\241\375\365DEFG\257\376\377 !\201N\201O\201P\365!\201Q\n\257E\"\201\2041\221\201S \201T#0\266\202\345H\205\234\333@A\"\266\202\345\375\365DEFG\257\376\377 !\201O\201P\365!\201Q \257\"\201\2051\330\201S \201T#0\266\202\345H\205\343\333@A\"\266\201\20620\201W\201X \201I\"\206\374I\330\201\207#\211JBJ\201Z\201\210\"\216\201\\ \345\201]\330$?\205,\201^\330\211\201_#\210\202*\2620\211\201\206=\203\201\242 >\204H\333\334\335 D\"\210\336 8G\201`U\203i\201a \201b\201c \f%\266\202\202\201a \201b\201d\n\n &\266\202\202\210\201\\\345\201]\201e$\345\230\203\241\201a\201b\201f#\210\201\2111\270\201hK!\205\263K 0\210\202\271\210\362\201i !\201j\320#)\201\212\240\210)\266\207\207" [tramp-gvfs-dbus-event-vector cl-struct-tramp-file-name-tags inhibit-changing-match-data tramp-goa-methods noninteractive inhibit-message tramp-connectable-p throw non-essential get-buffer-process tramp-get-connection-buffer make-network-process :name tramp-get-connection-name :buffer :server t :host local :service :noquery process-put vector set-process-query-on-exit-flag nil tramp-set-connection-local-variables tramp-gvfs-connection-mounted-p signal wrong-type-argument tramp-file-name 2 4 tramp-file-name-unquote-localname tramp-gvfs-object-path tramp-make-tramp-file-name noloc "afp" "/" tramp-user-error "Filename must contain an AFP volume" "davs?" string-match "Filename must contain a WebDAV share" "smb" "Filename must contain a Windows share" tramp-get-goa-accounts tramp-get-connection-property tramp-get-goa-account "FilesDisabled" "There is no Online Account `%s'" tramp-set-connection-property "first-password-request" dbus-register-method :session "askPassword" tramp-gvfs-handler-askpassword "AskPassword" "askQuestion" tramp-gvfs-handler-askquestion "AskQuestion" "(so)$" append ignore tramp-gvfs-mount-spec tramp-cache-read-persistent-data dbus-service-emacs tramp-gvfs-interface-mountoperation tramp-gvfs-mountlocation-signature tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker tramp-gvfs-interface-mounttracker tramp-gvfs-mountlocation dbus-debug tramp-connection-timeout with-timeout-timers tramp-password-save-function tramp-verbose tramp-inhibit-progress-reporter :struct :string dbus-get-unique-name :object-path (dbus-error) tramp-dbus-function dbus-call-method-asynchronously (dbus-error) #1=#:timeout run-with-timer tramp-get-method-parameter #[0 "\300\301\211\"\207" [throw #1#] 3] make-closure #[0 "\301\300!\207" [V0 cancel-timer] 2] tramp-get-file-property "fuse-mountpoint" read-event 0.1 0 tramp-error file-error "Timeout reached mounting %s using %s" "Timeout reached mounting %s@%s using %s" #5="" "FUSE mount denied" (error) functionp tramp-get-connection-process "connected" 3 "%s..." format #2="Opening connection for %s using %s" #3="Opening connection for %s@%s using %s" #4=(error) apply message 1 #6="Warning: " #7="Tramp: " #8=(error) processp process-buffer dont-create #9="\n%s" buffer-string process-get tramp-debug-message #10="(%d) # " "failed" make-progress-reporter run-at-time tramp-progress-reporter-update #[0 "\305\203\306\305!\210\300\307\310\302G\311U\203\312\313\303\301#\202 \312\314\302\303\301$\304\242D\3151\276#X\205\274\307X\203_$\204_\316\317\311U\203E\320\202Z\321U\203O\320\202Z\322U\203Y\323\202Z\324P#\210#\325Y\205\274\311#\321U\203\233\3261\232r\327!\203\200\330!\202\204\331\332\"q\210\333P\262\334\335 C\"\211\262)0\210\202\233\210\327!\203\247\336\337\"\262)\242%>\205\274\316\340\312\341\"P$0\207\266\342\207" [V0 V1 V2 V3 V4 V5 cancel-timer 3 "%s...%s" 0 format #2# #3# #4# apply message #5# 1 2 #6# #7# 4 #8# processp process-buffer tramp-get-connection-buffer dont-create #9# append buffer-string process-get vector tramp-debug-message #10# nil tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags] 10] (dbus-error) (dbus-error) #11=#:timeout #[0 "\300\301\211\"\207" [throw #11#] 3] #[0 "\301\300!\207" [V0 cancel-timer] 2] (error) "done"] 17 (#$ . 87860)]) #@53 Check, whether the gio tool is available. (fn VEC) (defalias 'tramp-gvfs-gio-tool-p #[257 "\301\302#\211=\203\303\304\305\211\211\306&\307U\262\310\302#\210\207" [tramp-cache-undefined tramp-get-connection-property "gio-tool" tramp-call-process "gio" nil "version" 0 tramp-set-connection-property] 9 (#$ . 94557)]) #@266 Send the COMMAND with its ARGS to connection VEC. COMMAND is a command from the gvfs-* utilities. It is replaced by the corresponding gio tool call if available. `call-process' is applied, and it returns t if the return code is zero. (fn VEC COMMAND &rest ARGS) (defalias 'tramp-gvfs-send-command #[642 "\302!\303\304\305\"\304\306\"\304\307\"E\"\310!\203)\311 \"A\312\313\"B\262\314\262r\315!q\210\316!\210\317 \210\320\321\313\322\313&\323U\206L\324\325\"\210\313*\207" [process-environment tramp-gvfs-gio-mapping tramp-get-local-locale append format "LANG=%s" "LANGUAGE=%s" "LC_ALL=%s" tramp-gvfs-gio-tool-p assoc delq nil "gio" tramp-get-connection-buffer tramp-gvfs-maybe-open-connection erase-buffer apply tramp-call-process t 0 tramp-flush-file-properties "/"] 12 (#$ . 94890)]) #@63 Transform VEC into a `tramp-goa-account' structure. (fn VEC) (defalias 'tramp-get-goa-account #[257 "\211\242>\205P\301\242>\204\302\303\304D\"\210A@\242>\204'\302\303\304D\"\210\3058\242>\2049\302\303\304D\"\210\3068\242>\204K\302\303\304D\"\210\3078\257\207" [cl-struct-tramp-file-name-tags tramp-goa-account signal wrong-type-argument tramp-file-name 2 4 5] 9 (#$ . 95706)]) #@331 Retrieve GNOME Online Accounts, and cache them. The hash key is a `tramp-goa-account' structure. The value is an alist of the properties of `tramp-goa-interface-account' and `tramp-goa-interface-files' of the corresponding GNOME Online Account. Additionally, a property "prefix" is added. VEC is used only for traces. (fn VEC) (defalias 'tramp-get-goa-accounts #[257 "\306\307\310#\211=\203\353\311\312\313\314\315 \nE#\"\211\203\337\211@ \313\316\315 E#\235\2053\313\317\315  F#\f\313\316\315 E#\235\205L\313\317\315 \fF#\320\321\"A\206U\322\307\320\323\"A\204\326\320\324\"A\325\235\203\326\326 \"\203\326\327\330\320\324\"A\331\332\333\"\334\332\335 \"\336\332\337 \"&\262\211\242@>\204\234\340\341\342D\"\210\211A@\343\230\203\272\211\242@>\204\263\340\341\342D\"\210\211A\211\344\240\266\211\242@>\204\311\340\341\342D\"\210\211A@\345\230\203\347\211\242@>\204\340\340\341\342D\"\210\211A\211\346\240\266\244\211\203\377\211@\347@A#\210A\266\202\202\352\210\350\351\347\352\353\354\306\n\355\356#!\357!A>\204!\340\341\360D\"\210\211\361H\262!#D\3621\324BX\205\316\337X\203eC\204e\363\364\365U\203K\322\202`\333U\203U\322\202`\335U\203_\366\202`\367P#\210B\370Y\205\316\365B\333U\203\243\3711\242r\372!\203\206\373!\202\212\374\375\"q\210\376P\262\377\201E C\"\211\262)0\210\202\243\210\372!\203\263\201F\201G\"\262)\242D>\205\316\363\201H\201I\201J\"P$0\266 \202\330\266\266A\266\202\202\210\201K\262\347\307\310#\210\207" [tramp-cache-undefined tramp-goa-service tramp-goa-path tramp-goa-interface-account tramp-goa-interface-files tramp-goa-identity-regexp tramp-get-connection-property nil "goa-accounts" mapcar car tramp-dbus-function dbus-get-all-managed-objects :session dbus-introspect-get-interface-names dbus-get-all-properties assoc "PresentationIdentity" "" "FilesDisabled" "ProviderType" ("google" "owncloud") string-match make-tramp-goa-account :method :user match-string 1 :host 2 :port 3 signal wrong-type-argument tramp-goa-account "google" "gdrive" "owncloud" "nextcloud" tramp-set-connection-property 10 "%s prefix %s" "prefix" directory-file-name url-generic-parse-url "Uri" "file:///" type-of url 6 (error) apply message 0 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append cl-struct-tramp-goa-account-tags cl-struct-url-tags tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags buffer-string process-get vector tramp-debug-message format "(%d) # " "cached"] 21 (#$ . 96118)]) #@118 Return a list of (user host) tuples allowed to access. It checks for registered GNOME Online Accounts. (fn SERVICE) (defalias 'tramp-parse-goa-accounts #[257 "\211C\302\242\"\203\211\303\304\242\"\240\210\305\306\307\" \310C\311\306\312\"\"\210\211\242\237\266\202\"\207" [tramp-dns-sd-service-regexp tramp-cache-data string-match match-string 1 mapcar make-closure #[257 "\211\242 >\205A\300\242\242 >\204\302\303\304D\"\210A@\230\205A\211\242 >\204,\302\303\304D\"\210\3058\242 >\204=\302\303\304D\"\210\3068D\207" [V0 cl-struct-tramp-goa-account-tags signal wrong-type-argument tramp-goa-account 2 3] 6 "\n\n(fn KEY)"] nil maphash #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"]] 10 (#$ . 98744)]) #@110 Transform VEC into a `tramp-media-device' structure. Check, that respective cache values do exist. (fn VEC) (defalias 'tramp-get-media-device #[257 "\300\301\302#\211\205\300\303\302#\211\203\207\304!\210\300\301\302#\207" [tramp-get-connection-property "media-device" nil "vector" tramp-get-media-devices] 7 (#$ . 99490)]) #@130 Retrieve media devices, and cache them. The hash key is a `tramp-media-device' structure. VEC is used only for traces. (fn VEC) (defalias 'tramp-get-media-devices #[257 "\306\211\203\310\211@\307\310\311\312\313\"!J\262 \n\314\257\306\"\3151(\316\317#0\2024 \2052\320@A\"\262\262A@\211\203\300\211@\321\3228!\323\324\325\326\327\330\331A@#$\332\324\326\333\3228!\334\335!\f>\204m\320\336\337\nD\"\210\322H\205\213\340\335 !\f>\204\206\320\336\337 D\"\210\322H!&\242 >\204\233\320\336\341D\"\210\3428B\262\343\344\3228#\210\343\345#\210\343\346#\266A\266\202\2028\210A\266\202\202\210\307\325\306G\347U\203\330@\202\331\350EC\351\352\325+\"+\"\"\211+\207" [tramp-media-methods tramp-gvfs-path-remotevolumemonitor tramp-gvfs-interface-remotevolumemonitor dbus-debug cl-struct-url-tags cl-struct-tramp-file-name-tags nil append :session intern-soft format "tramp-gvfs-service-%s-volumemonitor" "List" (dbus-error) tramp-dbus-function dbus-call-method signal url-generic-parse-url 5 make-tramp-file-name :method "mtp" :host tramp-compat-string-replace " " "_" make-tramp-media-device tramp-gvfs-url-host :port type-of wrong-type-argument url number-to-string tramp-file-name 4 tramp-set-connection-property "activation-uri" "media-device" "vector" 1 "" delete assoc tramp-default-host-alist] 19 (#$ . 99831)]) #@107 Return a list of (user host) tuples allowed to access. It checks for mounted media devices. (fn SERVICE) (defalias 'tramp-parse-media-names #[257 "\211C\302\242\"\203\211\303\304\242\"\240\210\305\306\307\" \310C\311\306\312\"\"\210\211\242\237\266\202\"\207" [tramp-dns-sd-service-regexp tramp-cache-data string-match match-string 1 mapcar make-closure #[257 "\211\242 >\205@\300\242\242 >\204\303\304\305D\"\210A@\230\205@\306\307\310#\205@\310\306\307\310#\211\242\n>\204:\303\304\311D\"\210\3128\262D\207" [V0 cl-struct-tramp-media-device-tags cl-struct-tramp-file-name-tags signal wrong-type-argument tramp-media-device tramp-get-connection-property "vector" nil tramp-file-name 4] 7 "\n\n(fn KEY)"] nil maphash #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K --CL-VAR--)"]] 10 (#$ . 101208)]) #@70 Return a list of (user host) tuples allowed to access. (fn SERVICE) (defalias 'tramp-zeroconf-parse-device-names #[257 "\300\301\302!\"\207" [mapcar #[257 "\301!\302!\303!\304\203\305\306$\262\2031\307\310@\"\203*\311\312@\"\262A\262\202\211D\207" [tramp-prefix-port-regexp zeroconf-service-host zeroconf-service-port zeroconf-service-txt nil format "%s%s%d" string-match "u=\\(.+\\)$" match-string 1] 10 "\n\n(fn X)"] zeroconf-list-services] 5 (#$ . 102037)]) #@134 Return a list of (user host) tuples allowed to access. This uses "avahi-browse" in case D-Bus is not enabled in Avahi. (fn SERVICE) (defalias 'tramp-gvfs-parse-device-names #[257 "\3001\301\302\303\304\"!\305\306\307$0\202\210\310\311\312\313\"!\207" [(error) split-string shell-command-to-string format "avahi-browse -trkp %s" "[\n ]+" omit "^\\+;.*$" nil delete-dups mapcar #[257 "\300\301\"\3028\300\3038\304\305\306$\307\203*\310\311@\"\203#\312\313@\"\262A\262\202\211D\207" [split-string ";" 6 9 "\" \"" omit "\"" nil string-match "u=\\(.+\\)$" match-string 1] 8 "\n\n(fn X)"]] 6 (#$ . 102529)]) (byte-code "\203\341\306 _\307\310\211\311\f!\210\312 \203\313\202$\314\315!\205$\316\211\262\203\254\317 \235\2038\320\317\321BC\"\210\322 \235\203I\320\322\323B\324BD\"\210\325 \235\203Z\320\325\326B\327BD\"\210\330 \235\203h\320\330\331BC\"\210\332 \235\203y\320\332\333B\334BD\"\210\335 \235\203\212\320\335\336B\337BD\"\210\340 \235\203\236\320\340\341B\342B\343BE\"\210\344 \235\203\254\320\344\345BC\"\210\346\310!\2103\211\203\320\211@\211 \235\203\311\320\347\350\351\"DC\"\210A\266\202\202\262\210\352\310!\210\320\353\354\3554\"\"\210+\266\356\357\360\"\210\361\362!\207" [tramp-gvfs-enabled max-specpdl-size tramp-gvfs-dbus-event-vector tramp-verbose tramp-gvfs-zeroconf-domain tramp-gvfs-methods 2 0 nil zeroconf-init zeroconf-list-service-types tramp-zeroconf-parse-device-names executable-find "avahi-browse" tramp-gvfs-parse-device-names "afp" tramp-set-completion-function ("_afpovertcp._tcp") "dav" ("_webdav._tcp") ("_webdavs._tcp") "davs" ("_webdav._tcp") ("_webdavs._tcp") "ftp" ("_ftp._tcp") "http" ("_http._tcp") ("_https._tcp") "https" ("_http._tcp") ("_https._tcp") "sftp" ("_sftp-ssh._tcp") ("_ssh._tcp") ("_workstation._tcp") "smb" ("_smb._tcp") tramp-get-goa-accounts tramp-parse-goa-accounts format "_%s._tcp" tramp-get-media-devices "mtp" mapcar #[257 "\300\301\302\"D\207" [tramp-parse-media-names format "_%s._tcp"] 5 "\n\n(fn METHOD)"] add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-gvfs force] 3] provide tramp-gvfs tramp-goa-methods tramp-media-methods] 12)