diff options
| author | Stephen Gildea <gildea@stop.mail-abuse.org> | 2006-07-08 11:42:40 +0000 |
|---|---|---|
| committer | Stephen Gildea <gildea@stop.mail-abuse.org> | 2006-07-08 11:42:40 +0000 |
| commit | 26816cbf789cb93b2f602df814613a0ac0d8cde2 (patch) | |
| tree | 62809aa4600131653501d93bf10545cf2e69657f /src/fileio.c | |
| parent | 6f6c5fb3940433002accf60b14881da11936c3ba (diff) | |
| download | emacs-26816cbf789cb93b2f602df814613a0ac0d8cde2.tar.gz emacs-26816cbf789cb93b2f602df814613a0ac0d8cde2.tar.bz2 emacs-26816cbf789cb93b2f602df814613a0ac0d8cde2.zip | |
fileio.c (do_auto_save_make_dir): Make the auto-save-list-file
directory unreadable for better user privacy.
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c index d109f034652..839bf86af53 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -5853,7 +5853,11 @@ static Lisp_Object do_auto_save_make_dir (dir) Lisp_Object dir; { - return call2 (Qmake_directory, dir, Qt); + Lisp_Object mode; + + call2 (Qmake_directory, dir, Qt); + XSETFASTINT (mode, 0700); + return Fset_file_modes (dir, mode); } static Lisp_Object |