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

name and file modes.

2 files changed, 6 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index cb8d66e14b4..ddf8d18afc9 100644
--- 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 2a0e93ebe18..b76d243346e 100644
--- 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)