diff options
| author | Stephen Gildea <stepheng+emacs@gildea.com> | 2021-09-01 20:42:28 -0700 |
|---|---|---|
| committer | Stephen Gildea <stepheng+emacs@gildea.com> | 2021-09-01 20:42:28 -0700 |
| commit | f3c5355c6b0576521693ed8da30a5dcd7a22a04c (patch) | |
| tree | bc71f403b9ead5e587a4ede9060d9473607c01e5 | |
| parent | f85b8678c4a08fd91d9b5f32dcde2f0b21bc6e38 (diff) | |
| download | emacs-f3c5355c6b0576521693ed8da30a5dcd7a22a04c.tar.gz emacs-f3c5355c6b0576521693ed8da30a5dcd7a22a04c.tar.bz2 emacs-f3c5355c6b0576521693ed8da30a5dcd7a22a04c.zip | |
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.
| -rw-r--r-- | lisp/net/tramp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 11c417f832e..9ed9da92434 100644 --- 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) |