Mercurial > emacs

changeset 18744:1718bdf566fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fwrite_region): Fix call2 argument. (Fread_file_name): Convert Fcons argument to Lisp_Integer.
author Richard M. Stallman <rms@gnu.org>
date Sat, 12 Jul 1997 06:43:08 +0000
parents 1c1a002339a5
children 192b3ebd108e
files src/fileio.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/fileio.c	Sat Jul 12 06:42:44 1997 +0000
+++ b/src/fileio.c	Sat Jul 12 06:43:08 1997 +0000
@@ -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 @@
       /* 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 @@
   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;