# HG changeset patch
# User michaels
# Date 1170689599 0
# Node ID b98f0084dc23588c14d802bc3127cc5aa3d47d80
# Parent  ccceded4ee72d999fb4ca19bd90b39bd5f007d4e
[xemacs-hg @ 2007-02-05 15:33:17 by michaels]
2007-02-05  Mike Sperber  <mike@xemacs.org>

	* fileio.c (Finsert_file_contents_internal): Clean up dead
	`handler' variable.

diff -r ccceded4ee72 -r b98f0084dc23 src/ChangeLog
--- a/src/ChangeLog	Mon Feb 05 15:19:18 2007 +0000
+++ b/src/ChangeLog	Mon Feb 05 15:33:19 2007 +0000
@@ -1,3 +1,8 @@
+2007-02-05  Mike Sperber  <mike@xemacs.org>
+
+	* fileio.c (Finsert_file_contents_internal): Clean up dead
+	`handler' variable.
+
 2007-01-27  Mike Sperber  <mike@xemacs.org>
 
 	* faces.c (complex_vars_of_faces): Move declarations of fontptr
diff -r ccceded4ee72 -r b98f0084dc23 src/fileio.c
--- a/src/fileio.c	Mon Feb 05 15:19:18 2007 +0000
+++ b/src/fileio.c	Mon Feb 05 15:33:19 2007 +0000
@@ -2886,7 +2886,7 @@
   Charcount inserted = 0;
   int speccount;
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
-  Lisp_Object handler = Qnil, val;
+  Lisp_Object val;
   int total;
   Ibyte read_buf[READ_BUF_SIZE];
   int mc_count;
@@ -2909,7 +2909,7 @@
 
   curbuf = wrap_buffer (buf);
 
-  GCPRO5 (filename, val, visit, handler, curbuf);
+  GCPRO4 (filename, val, visit, curbuf);
 
   mc_count = (NILP (replace)) ?
     begin_multiple_change (buf, BUF_PT  (buf), BUF_PT (buf)) :
@@ -3230,31 +3230,25 @@
     {
       if (!EQ (buf->undo_list, Qt))
 	buf->undo_list = Qnil;
-      if (NILP (handler))
-	{
-	  buf->modtime = st.st_mtime;
-	  buf->filename = filename;
-	  /* XEmacs addition: */
-	  /* This function used to be in C, ostensibly so that
-	     it could be called here.  But that's just silly.
-	     There's no reason C code can't call out to Lisp
-	     code, and it's a lot cleaner this way. */
-	  /*  Note: compute-buffer-file-truename is called for
-	      side-effect!  Its return value is intentionally
-	      ignored. */
-	  if (!NILP (Ffboundp (Qcompute_buffer_file_truename)))
-	    call1 (Qcompute_buffer_file_truename, wrap_buffer (buf));
-	}
+      buf->modtime = st.st_mtime;
+      buf->filename = filename;
+      /* XEmacs addition: */
+      /* This function used to be in C, ostensibly so that
+	 it could be called here.  But that's just silly.
+	 There's no reason C code can't call out to Lisp
+	 code, and it's a lot cleaner this way. */
+      /*  Note: compute-buffer-file-truename is called for
+	  side-effect!  Its return value is intentionally
+	  ignored. */
+      if (!NILP (Ffboundp (Qcompute_buffer_file_truename)))
+	call1 (Qcompute_buffer_file_truename, wrap_buffer (buf));
       BUF_SAVE_MODIFF (buf) = BUF_MODIFF (buf);
       buf->auto_save_modified = BUF_MODIFF (buf);
       buf->saved_size = make_int (BUF_SIZE (buf));
 #ifdef CLASH_DETECTION
-      if (NILP (handler))
-	{
-	  if (!NILP (buf->file_truename))
-	    unlock_file (buf->file_truename);
-	  unlock_file (filename);
-	}
+      if (!NILP (buf->file_truename))
+	unlock_file (buf->file_truename);
+      unlock_file (filename);
 #endif /* CLASH_DETECTION */
       if (not_regular)
 	RETURN_UNGCPRO (Fsignal (Qfile_error,