# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1236239797 18000
# Node ID eeed8d6498118146dfc43e9d1f2515ff0c0ff758
# Parent  6e9f26506804a46ceb401c7da565bfdf84d5d425
spdiag.m: ensure sparse result

diff -r 6e9f26506804 -r eeed8d649811 scripts/ChangeLog
--- a/scripts/ChangeLog	Thu Mar 05 08:34:52 2009 +0100
+++ b/scripts/ChangeLog	Thu Mar 05 02:56:37 2009 -0500
@@ -1,3 +1,7 @@
+2009-03-05  John W. Eaton  <jwe@octave.org>
+
+	* deprecated/spdiag.m: Ensure sparse result.
+
 2009-03-05  Ben Abbott <bpabbott@mac.com>
 
 	* plot/__go_draw_axes__.m: Preserve column vector orientation for
diff -r 6e9f26506804 -r eeed8d649811 scripts/deprecated/spdiag.m
--- a/scripts/deprecated/spdiag.m	Thu Mar 05 08:34:52 2009 +0100
+++ b/scripts/deprecated/spdiag.m	Thu Mar 05 02:56:37 2009 -0500
@@ -18,7 +18,7 @@
 
 ## -*- texinfo -*-
 ## @deftypefn {Function File} {} spdiag (@var{v}, @var{k})
-## This function has been deprecated.  Use @code{diag} instead.
+## This function has been deprecated.  Use @code{sparse (diag (...))} instead.
 ## @end deftypefn
 
 ## Deprecated in version 3.2
@@ -28,9 +28,9 @@
   if (! warned)
     warned = true;
     warning ("Octave:deprecated-function",
-	     "spdiag is obsolete and will be removed from a future version of Octave; please use diag instead");
+	     "spdiag is obsolete and will be removed from a future version of Octave; please use sparse (diag (...)) instead");
   endif
 
-  retval = diag (varargin{:});
+  retval = sparse (diag (varargin{:}));
 
 endfunction