diff options
| author | Michael Albinus | 2020-06-12 20:17:02 +0200 |
|---|---|---|
| committer | Michael Albinus | 2020-06-12 20:17:02 +0200 |
| commit | 459bd56f46af8cd7c29965600c46387282c3c93f (patch) | |
| tree | 47f2f4b4b0071db3df38da22b8fadfea43ec9345 /test | |
| parent | 54efe18959591faa1087051c878abe470f53a28f (diff) | |
| download | emacs-459bd56f46af8cd7c29965600c46387282c3c93f.tar.gz emacs-459bd56f46af8cd7c29965600c46387282c3c93f.zip | |
Further fixes while testing tramp-crypt
* doc/misc/tramp.texi (External methods): Remove experimental note
for rclone.
(Keeping files encrypted): Mark file encryption as experimental.
* lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist):
Use `tramp-handle-file-truename'.
(tramp-adb-handle-file-truename): Remove.
* lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
Add `file-writable-p'.
(tramp-crypt-send-command): Return t if no error.
(tramp-crypt-do-encrypt-or-decrypt-file-name)
(tramp-crypt-do-encrypt-or-decrypt-file): Raise an error if it fails.
(tramp-crypt-do-copy-or-rename-file): Flush file properties also
when copying a directory.
(tramp-crypt-handle-file-writable-p): New defun.
(tramp-crypt-handle-insert-directory): Check for library
`text-property-search'.
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-set-file-uid-gid):
Rename from `tramp-gvfs-set-file-uid-gid'.
* lisp/net/tramp-sh.el (tramp-sh-handle-file-truename):
Use `tramp-handle-file-truename' as fallback.
* lisp/net/tramp.el (tramp-handle-file-truename):
Let-bind `tramp-crypt-enabled' to nil.
(tramp-handle-write-region): Set also file ownership.
* test/lisp/net/tramp-tests.el (tramp-test17-insert-directory):
Skip if needed.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 578da4171c7..9667b34c667 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -2925,6 +2925,9 @@ This tests also `file-directory-p' and `file-accessible-directory-p'." | |||
| 2925 | ;; (this is performed by `dired'). If FULL is nil, it shows just | 2925 | ;; (this is performed by `dired'). If FULL is nil, it shows just |
| 2926 | ;; one file. So we refrain from testing. | 2926 | ;; one file. So we refrain from testing. |
| 2927 | (skip-unless (not (tramp--test-ange-ftp-p))) | 2927 | (skip-unless (not (tramp--test-ange-ftp-p))) |
| 2928 | ;; `insert-directory' of crypted remote directories works only since | ||
| 2929 | ;; Emacs 27.1. | ||
| 2930 | (skip-unless (or (not (tramp--test-crypt-p)) (tramp--test-emacs27-p))) | ||
| 2928 | 2931 | ||
| 2929 | (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil))) | 2932 | (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil))) |
| 2930 | (let* ((tmp-name1 | 2933 | (let* ((tmp-name1 |