[Emacs-diffs] Changes to emacs/src/fileio.c,v

[Stephen Gildea]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Stephen Gildea <gildea> 06/07/08 11:42:41

Index: fileio.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/fileio.c,v
retrieving revision 1.567
retrieving revision 1.568
diff -u -b -r1.567 -r1.568
--- fileio.c    23 Jun 2006 10:19:11 -0000      1.567
+++ fileio.c    8 Jul 2006 11:42:40 -0000       1.568
@@ -5853,7 +5853,11 @@
 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