mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(Fwrite_region): Fix call2 argument.

Browse Source 
(Fread_file_name): Convert Fcons argument to Lisp_Integer.
This commit is contained in:
Richard M. Stallman 1997-07-12 06:43:08 +00:00
parent 4dcb3ee353
commit bffd00b0d3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/fileio.c
View File

@ -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;