procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* net/tramp-sh.el (tramp-sh-handle-set-file-selinux-context):

Browse source 
Return `t' on success.

* net/tramp-smb.el (tramp-smb-file-name-handler-alist): Add
handler for `set-file-selinux-context'.
This commit is contained in:
Michael Albinus 2012-12-30 11:58:13 +01:00
parent 4d1d3f07a4
commit 4f752957f1
3 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2012-12-30 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-sh.el (tramp-sh-handle-set-file-selinux-context):
Return `t' on success.
* net/tramp-smb.el (tramp-smb-file-name-handler-alist): Add
handler for `set-file-selinux-context'.
2012-12-29 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-sh.el (tramp-sh-handle-file-acl): Suppress basic attributes.

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

@ -1530,10 +1530,11 @@ and gid of the corresponding user is taken. Both parameters must be integers."
(if (stringp (nth 3 context))
(format "--range=%s" (nth 3 context)) "")
(tramp-shell-quote-argument localname))))
(tramp-set-file-property v localname "file-selinux-context" context)
(tramp-set-file-property v localname "file-selinux-context" 'undef)))
;; We always return nil.
nil)
(progn
(tramp-set-file-property v localname "file-selinux-context" context)
t)
(tramp-set-file-property v localname "file-selinux-context" 'undef)
nil)))
(defun tramp-remote-acl-p (vec)
"Check, whether ACL is enabled on the remote host."

2
lisp/net/tramp-smb.el
View file

@ -230,7 +230,7 @@ See `tramp-actions-before-shell' for more info.")
(rename-file . tramp-smb-handle-rename-file)
(set-file-acl . ignore)
(set-file-modes . tramp-smb-handle-set-file-modes)
;; `set-file-selinux-context' performed by default handler.
(set-file-selinux-context . ignore)
(set-file-times . ignore)
(set-visited-file-modtime . ignore)
(shell-command . tramp-handle-shell-command)