* fileio.c (Fdefault_file_modes): Block input while fiddling with umask.

Otherwise, the umask might be mistakenly 0 while handling input signals.

diff --git a/src/ChangeLog b/src/ChangeLog
index ba523de..69f11e5 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-20  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * fileio.c (Fdefault_file_modes): Block input while fiddling with umask.
+       Otherwise, the umask might be mistakenly 0 while handling input signals.
+
 2012-06-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * minibuf.c (Fread_string): Bind minibuffer-completion-table.

diff --git a/src/fileio.c b/src/fileio.c
index 388ae84..8b69ed5 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3014,8 +3014,10 @@ The value is an integer.  */)
   int realmask;
   Lisp_Object value;
 
+  BLOCK_INPUT;
   realmask = umask (0);
   umask (realmask);
+  UNBLOCK_INPUT;
 
   XSETINT (value, (~ realmask) & 0777);
   return value;