diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2010-05-06 10:40:06 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2010-05-06 10:40:06 +0200 |
| commit | 9566840faf0378750569f1228ead9488bc1bf64d (patch) | |
| tree | e2f7d427f87e9dc19cefad0762075a18e340dc0c /lisp/net/tramp-gvfs.el | |
| parent | 380884c6f03d40278f28944e449424e50f596ff1 (diff) | |
| download | emacs-9566840faf0378750569f1228ead9488bc1bf64d.tar.gz | |
* net/tramp.el (top, with-progress-reporter): Use
`symbol-function' inside `funcall'.
* net/tramp-compat.el (tramp-compat-file-attributes)
(tramp-compat-delete-file, tramp-compat-delete-directory): Handle
only `wrong-number-of-arguments' error.
* net/tramp-gvfs.el (tramp-gvfs-handle-copy-file): Fix typo.
(tramp-gvfs-handle-file-selinux-context): Use `symbol-function'
inside `funcall'.
Diffstat (limited to 'lisp/net/tramp-gvfs.el')
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index 569fca3fe31..f045589a27c 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -525,7 +525,7 @@ is no information where to trace the message.") newname) ok-if-already-exists keep-date preserve-uid-gid))) (when preserve-selinux-context - (setq args (append args (list preserve-uid-gid)))) + (setq args (append args (list preserve-selinux-context)))) (apply 'copy-file args))) (defun tramp-gvfs-handle-delete-directory (directory &optional recursive) @@ -629,7 +629,8 @@ is no information where to trace the message.") (defun tramp-gvfs-handle-file-selinux-context (filename) "Like `file-selinux-context' for Tramp files." - (funcall 'file-selinux-context (tramp-gvfs-fuse-file-name filename))) + (funcall (symbol-function 'file-selinux-context) + (tramp-gvfs-fuse-file-name filename))) (defun tramp-gvfs-handle-file-writable-p (filename) "Like `file-writable-p' for Tramp files." |