From 09fbdf6ccc2ee2f4f2e1f02a5f11d264ead7a224 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Micha=C3=ABl=20Cadilhac?= Date: Mon, 10 Sep 2007 09:53:45 +0000 Subject: [PATCH] (Fset_file_modes): Add an interactive spec that reads a file name and file modes. --- src/ChangeLog | 3 +++ src/fileio.c | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) 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) -- 2.39.5