diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-12 06:43:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-12 06:43:08 +0000 |
| commit | b3c3099f6b0bed4cb9e572a111d7f10b15be7fe4 (patch) | |
| tree | 35695796e589b7fce88a30afbd5b49d1f470dc7b /src/fileio.c | |
| parent | a56dbd4edd9f0eb91e5b13e4a21e8263ae6cfd13 (diff) | |
| download | emacs-b3c3099f6b0bed4cb9e572a111d7f10b15be7fe4.tar.gz | |
(Fwrite_region): Fix call2 argument.
(Fread_file_name): Convert Fcons argument to Lisp_Integer.
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/fileio.c b/src/fileio.c index 5d9352ed754..bf1af48efc7 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -1,5 +1,5 @@ /* File IO for GNU Emacs. - Copyright (C) 1985,86,87,88,93,94,95,96 Free Software Foundation, Inc. + Copyright (C) 1985,86,87,88,93,94,95,96,1997 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -3909,7 +3909,7 @@ to the file, instead of any buffer contents, and END is ignored.") /* If we've locked this file for some other buffer, query before proceeding. */ if (!visiting && EQ (Ffile_locked_p (lockname), Qt)) - call2 (intern ("ask-user-about-lock"), fn, Vuser_login_name); + call2 (intern ("ask-user-about-lock"), filename, Vuser_login_name); lock_file (lockname); } @@ -4853,7 +4853,7 @@ DIR defaults to current buffer's directory default.") else if (STRINGP (initial)) { insdef = initial; - insdef1 = Fcons (double_dollars (insdef), 0); + insdef1 = Fcons (double_dollars (insdef), make_number (0)); } else insdef = Qnil, insdef1 = Qnil; |