Mercurial > emacs
changeset 84442:480b9674f921
(Fset_file_modes): Add an interactive spec that reads a file
name and file modes.
| author | Michaël Cadilhac <michael.cadilhac@lrde.org> |
|---|---|
| date | Mon, 10 Sep 2007 09:53:32 +0000 |
| parents | 056df43873df |
| children | a3f695716ed6 |
| files | src/fileio.c |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)