mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 19:10:37 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
name and file modes.
This commit is contained in:
Michaël Cadilhac 2007-09-10 09:53:45 +00:00
parent 90d10f16c8
commit 09fbdf6ccc
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ChangeLog
View file

@ -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>

4
src/fileio.c
View file

@ -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)