tramp-auto-save-directory: make private

* lisp/net/tramp.el (tramp-handle-make-auto-save-file-name):
chmod 0700 tramp-auto-save-directory when creating

Thanks to Michael Albinus for reviewing this patch.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 11c417f832e63b3d5785cf674864dc49b60215b2..9ed9da92434b29213c3240f02723712756551d4c 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -5419,7 +5419,8 @@ this file, if that variable is non-nil."
     ;; Create directory.
     (unless (or (null tramp-auto-save-directory)
                (file-exists-p tramp-auto-save-directory))
-      (make-directory tramp-auto-save-directory t))
+      (make-directory tramp-auto-save-directory t)
+      (set-file-modes tramp-auto-save-directory #o0700))
 
     (let ((system-type
           (if (and (stringp tramp-auto-save-directory)