Futher tramp-crypt implementation and documentation

* doc/misc/tramp.texi (Top, Configuration): Insert section
`Keeping files encrypted' in menu.
(Keeping files encrypted): New node.

* lisp/net/tramp-crypt.el (tramp-crypt-file-name-handler-alist):
Add `tramp-set-file-uid-gid'.
(tramp-crypt-maybe-open-connection): Simplify.
(tramp-crypt-do-encrypt-or-decrypt-file): Use `binary' coding system.
(tramp-crypt-handle-set-file-uid-gid): New defun.

* test/lisp/net/tramp-tests.el (tramp-test09-insert-file-contents):
Adapt test.

1 files changed, 17 insertions, 8 deletions

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index d578c359d79..578da4171c7 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2294,16 +2294,25 @@ This checks also `file-name-as-directory', `file-name-directory',
       (unwind-protect
           (with-temp-buffer
             (write-region "foo" nil tmp-name)
-            (insert-file-contents tmp-name)
-            (should (string-equal (buffer-string) "foo"))
-            (insert-file-contents tmp-name)
-            (should (string-equal (buffer-string) "foofoo"))
+            (let ((point (point)))
+              (insert-file-contents tmp-name)
+              (should (string-equal (buffer-string) "foo"))
+              (should (= point (point))))
+            (goto-char (1+ (point)))
+            (let ((point (point)))
+              (insert-file-contents tmp-name)
+              (should (string-equal (buffer-string) "ffoooo"))
+              (should (= point (point))))
             ;; Insert partly.
-            (insert-file-contents tmp-name nil 1 3)
-            (should (string-equal (buffer-string) "oofoofoo"))
+            (let ((point (point)))
+              (insert-file-contents tmp-name nil 1 3)
+              (should (string-equal (buffer-string) "foofoooo"))
+              (should (= point (point))))
             ;; Replace.
-            (insert-file-contents tmp-name nil nil nil 'replace)
-            (should (string-equal (buffer-string) "foo"))
+            (let ((point (point)))
+              (insert-file-contents tmp-name nil nil nil 'replace)
+              (should (string-equal (buffer-string) "foo"))
+              (should (= point (point))))
             ;; Error case.
             (delete-file tmp-name)
             (should-error