Commit 09fbdf6c authored by Michaël Cadilhac's avatar Michaël Cadilhac
Browse files

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

name and file modes.
parent 90d10f16
......@@ -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>
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment