(Fset_file_modes): Add an interactive spec that reads a file

name and file modes.

diff --git a/src/ChangeLog b/src/ChangeLog
index cb8d66e14b4fb782bba8312c28f296389f96f0ce..ddf8d18afc95b8bb74c8241308406ee50730a0ca 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -8,6 +8,9 @@
        * data.c (Finteractive_form): If the interactive specification starts
        with a `(', use it as a Lisp form.
 
+       * fileio.c (Fset_file_modes): Add an interactive spec that reads a file
+       name and file modes.
+
        * callint.c (Fcall_interactively): Comment fixes.
 
 2007-09-10  Stefan Monnier  <monnier@iro.umontreal.ca>

diff --git a/src/fileio.c b/src/fileio.c
index 2a0e93ebe18f87ba26f725765f98aeaf162a2af6..b76d243346e9a11764de70b173e8ec37b468da35 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3435,7 +3435,9 @@ Return nil, if file does not exist or is not accessible.  */)
   return make_number (st.st_mode & 07777);
 }
 
-DEFUN ("set-file-modes", Fset_file_modes, Sset_file_modes, 2, 2, 0,
+DEFUN ("set-file-modes", Fset_file_modes, Sset_file_modes, 2, 2,
+       "(let ((file (read-file-name \"File: \")))                      \
+         (list file (read-file-modes nil file)))",
        doc: /* Set mode bits of file named FILENAME to MODE (an integer).
 Only the 12 low bits of MODE are used.  */)
   (filename, mode)