# HG changeset patch
# User Micha¸«³l Cadilhac <michael.cadilhac@lrde.org>
# Date 1189418012 0
# Node ID 480b9674f921dc766a76fdab29459f0ad1dcd538
# Parent  056df43873dfb103abe375e2f4591584012382f3
(Fset_file_modes): Add an interactive spec that reads a file
name and file modes.

diff -r 056df43873df -r 480b9674f921 src/fileio.c
--- a/src/fileio.c	Mon Sep 10 09:51:44 2007 +0000
+++ b/src/fileio.c	Mon Sep 10 09:53:32 2007 +0000
@@ -3435,7 +3435,9 @@
   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)