# HG changeset patch
# User jwe
# Date 1120580962 0
# Node ID f654f94c46af254ba92a27970d4402f76882ab8b
# Parent  c7e3cf2fce3efb0145e1cf70515ec1a23181093b
[project @ 2005-07-05 16:29:22 by jwe]

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,13 @@
+2005-07-05  Antoine Moreau  <antoine.moreau@univ-bpclermont.fr>
+
+	* DLD-FUNCTIONS/betainc.cc (Fbetainc): Fix doc string to match
+	function definition..
+
+2005-07-05  Mats Jansson  <mats.e.jansson@home.se>
+
+         * file-io.cc (Fmkstemp): Check if second argument is true
+         before marking file for deletion.
+
 2005-07-05  John W. Eaton  <jwe@octave.org>
 
 	* ov-str-mat.cc (octave_char_matrix_str::do_index_op_internal):
diff --git a/src/DLD-FUNCTIONS/betainc.cc b/src/DLD-FUNCTIONS/betainc.cc
--- a/src/DLD-FUNCTIONS/betainc.cc
+++ b/src/DLD-FUNCTIONS/betainc.cc
@@ -40,18 +40,18 @@
 @iftex\n\
 @tex\n\
 $$\n\
- \\beta (a, b, x) = B (a, b)^{-1} \\int_0^x t^{(a-z)} (1-t)^{(b-1)} dt.\n\
+ \\betainc (x, a, b) = B (a, b)^{-1} \\int_0^x t^{(a-z)} (1-t)^{(b-1)} dt.\n\
 $$\n\
 @end tex\n\
 @end iftex\n\
 @ifinfo\n\
 \n\
 @smallexample\n\
-                                    x\n\
-                                   /\n\
-betai (a, b, x) = beta (a, b)^(-1) | t^(a-1) (1-t)^(b-1) dt.\n\
-                                   /\n\
-                                t=0\n\
+                                      x\n\
+                                     /\n\
+betainc (x, a, b) = beta (a, b)^(-1) | t^(a-1) (1-t)^(b-1) dt.\n\
+                                     /\n\
+                                  t=0\n\
 @end smallexample\n\
 @end ifinfo\n\
 \n\
diff --git a/src/file-io.cc b/src/file-io.cc
--- a/src/file-io.cc
+++ b/src/file-io.cc
@@ -1881,7 +1881,7 @@
 		      retval(1) = nm;
 		      retval(0) = octave_stream_list::insert (s);
 
-		      if (nargin == 2)
+		      if (nargin == 2 && args(1).is_true ())
 			mark_for_deletion (nm);
 		    }
 		  else