From: Michaël Cadilhac Date: Mon, 10 Sep 2007 09:53:45 +0000 (+0000) Subject: (Fset_file_modes): Add an interactive spec that reads a file X-Git-Tag: emacs-pretest-23.0.90~10988 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09fbdf6ccc2ee2f4f2e1f02a5f11d264ead7a224;p=emacs.git (Fset_file_modes): Add an interactive spec that reads a file name and file modes. --- diff --git a/src/ChangeLog b/src/ChangeLog index cb8d66e14b4..ddf8d18afc9 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -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 diff --git a/src/fileio.c b/src/fileio.c index 2a0e93ebe18..b76d243346e 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)