Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Minor tweaks in tramp-archive.el

Browse source 
* lisp/net/tramp-archive.el (tramp-archive-file-name-handler):
Bind `tramp-unknown-id-integer' and `tramp-unknown-id-string'
in order to have minimal ownership information.
This commit is contained in:
Michael Albinus 2018-02-02 17:06:22 +01:00
parent a893a4db20
commit b86b8ee072
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/tramp-archive.el
View file

@ -287,6 +287,9 @@ pass to the OPERATION."
(tramp-compat-user-error nil "Package `tramp-archive' not supported"))
(let ((tramp-methods (cons `(,tramp-archive-method) tramp-methods))
(tramp-gvfs-methods tramp-archive-all-gvfs-methods)
;; Set uid and gid. gvfsd-archive could do it, but it doesn't.
(tramp-unknown-id-integer (user-uid))
(tramp-unknown-id-string (user-login-name))
(fn (assoc operation tramp-archive-file-name-handler-alist)))
(when (eq (cdr fn) 'tramp-archive-handle-not-implemented)
(setq args (cons operation args)))
@ -583,9 +586,11 @@ offered."
;;; TODO:
;; * See, whether we could retrieve better file attributes like uid,
;; gid, permissions.
;; * Check, whether we could retrieve better file attributes like uid,
;; gid, permissions. See gvfsbackendarchive.c
;; (archive_file_set_info_from_entry), where it is commented out.
;;
;; * Implement write access, when possible.
;; https://bugzilla.gnome.org/show_bug.cgi?id=589617
;;; tramp-archive.el ends here