[Emacs-diffs] /srv/bzr/emacs/trunk r99990: * net/tramp.el (tramp-handle-copy-file): Add new optional

[Michael Albinus]

------------------------------------------------------------
revno: 99990
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Thu 2010-04-22 11:15:27 +0200
message:
  * net/tramp.el (tramp-handle-copy-file): Add new optional
  parameter `preserve-selinux-context'.
  (tramp-file-name-for-operation): Add `set-file-selinux-context'.
modified:
  lisp/ChangeLog*
  lisp/net/tramp.el*

=== modified file 'lisp/ChangeLog' (properties changed: -x to +x)
--- a/lisp/ChangeLog    2010-04-22 04:30:16 +0000
+++ b/lisp/ChangeLog    2010-04-22 09:15:27 +0000
@@ -1,5 +1,9 @@
 2010-04-22  Michael Albinus  <address@hidden>
 
+       * net/tramp.el (tramp-handle-copy-file): Add new optional
+       parameter `preserve-selinux-context'.
+       (tramp-file-name-for-operation): Add `set-file-selinux-context'.
+
        * net/tramp.el (tramp-completion-handle-file-name-all-completions):
        Ensure, that non remote files are still checked.  Oops.
 

=== modified file 'lisp/net/tramp.el' (properties changed: -x to +x)
--- a/lisp/net/tramp.el 2010-04-22 04:27:55 +0000
+++ b/lisp/net/tramp.el 2010-04-22 09:15:27 +0000
@@ -3437,7 +3437,8 @@
         (buffer-name))))))
 
 (defun tramp-handle-copy-file
-  (filename newname &optional ok-if-already-exists keep-date preserve-uid-gid)
+  (filename newname &optional ok-if-already-exists keep-date
+           preserve-uid-gid preserve-selinux-context)
   "Like `copy-file' for Tramp files."
   ;; Check if both files are local -- invoke normal copy-file.
   ;; Otherwise, use Tramp from local system.
@@ -5326,7 +5327,7 @@
                  'dired-compress-file 'dired-uncache
                  'file-accessible-directory-p 'file-attributes
                  'file-directory-p 'file-executable-p 'file-exists-p
-                 'file-local-copy 'file-remote-p 'file-modes 
'file-selinux-context
+                 'file-local-copy 'file-remote-p 'file-modes
                  'file-name-as-directory 'file-name-directory
                  'file-name-nondirectory 'file-name-sans-versions
                  'file-ownership-preserved-p 'file-readable-p
@@ -5338,6 +5339,8 @@
                  'unhandled-file-name-directory 'vc-registered
                  ;; Emacs 22+ only.
                  'set-file-times
+                 ;; Emacs 24+ only.
+                 'file-selinux-context 'set-file-selinux-context
                  ;; XEmacs only.
                  'abbreviate-file-name 'create-file-buffer
                  'dired-file-modtime 'dired-make-compressed-filename
@@ -8678,6 +8681,7 @@
 ;;   on remote hosts.
 ;; * Use secrets.el for password handling.
 ;; * Load ~/.emacs_SHELLNAME on the remote host for `shell'.
+;; * Implement selinux-context.
 
 ;; Functions for file-name-handler-alist:
 ;; diff-latest-backup-file -- in diff.el