diff options
author | Michaël Cadilhac <[email protected]> | 2007-09-10 09:53:45 +0000 |
---|---|---|
committer | Michaël Cadilhac <[email protected]> | 2007-09-10 09:53:45 +0000 |
commit | 09fbdf6ccc2ee2f4f2e1f02a5f11d264ead7a224 (patch) | |
tree | 4896a7271cf6548edaf99e1b7f39469ffea61a38 /src/fileio.c | |
parent | 90d10f16c8c850c39c35b145310a67ab676d8425 (diff) |
(Fset_file_modes): Add an interactive spec that reads a file
name and file modes.
Diffstat (limited to 'src/fileio.c')
-rw-r--r-- | src/fileio.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c index 2a0e93ebe1..b76d243346 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) |