Mercurial > emacs

diff src/fileio.c @ 28507:b6f06a755c7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make_number/XINT/XUINT conversions; EQ/== fixes; ==Qnil -> NILP
author Ken Raeburn <raeburn@raeburn.org>
date Wed, 05 Apr 2000 17:29:31 +0000
parents 4b675266db04
children 98330e399518
line wrap: on
line diff
--- a/src/fileio.c	Tue Apr 04 21:15:08 2000 +0000
+++ b/src/fileio.c	Wed Apr 05 17:29:31 2000 +0000
@@ -4461,7 +4461,7 @@
 
   filename = Fexpand_file_name (filename, Qnil);
 
-  if (! NILP (mustbenew) && mustbenew != Qexcl)
+  if (! NILP (mustbenew) && !EQ (mustbenew, Qexcl))
     barf_or_query_if_file_exists (filename, "overwrite", 1, 0, 1);
 
   if (STRINGP (visit))
@@ -4600,7 +4600,7 @@
 		     S_IREAD | S_IWRITE);
 #else  /* not DOS_NT */
   desc = emacs_open (fn, O_WRONLY | O_TRUNC | O_CREAT
-		     | (mustbenew == Qexcl ? O_EXCL : 0),
+		     | (EQ (mustbenew, Qexcl) ? O_EXCL : 0),
 		     auto_saving ? auto_save_mode_bits : 0666);
 #endif /* not DOS_NT */
 #endif /* not VMS */