Mercurial > emacs
diff src/fileio.c @ 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 | 27d11c1d4e46 |
children | 5b8f5c8e3e4b |
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)