From 26816cbf789cb93b2f602df814613a0ac0d8cde2 Mon Sep 17 00:00:00 2001 From: Stephen Gildea Date: Sat, 8 Jul 2006 11:42:40 +0000 Subject: [PATCH] fileio.c (do_auto_save_make_dir): Make the auto-save-list-file directory unreadable for better user privacy. --- src/ChangeLog | 5 +++++ src/fileio.c | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 859a6465f85..79a1dab60de 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2006-07-08 Stephen Gildea + + * fileio.c (do_auto_save_make_dir): Make the auto-save-list-file + directory unreadable for better user privacy. + 2006-07-07 Stefan Monnier * syntax.c (Fforward_comment): Fix int-32 vs EMACS_INT-64 mixup. 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 -- 2.39.2