# HG changeset patch
# User Ben Abbott <bpabbott@mac.com>
# Date 1223339791 14400
# Node ID 946035db56057c450d83610b741bda8889d332e4
# Parent  b04109600a828fdd3b5877cc6ceeb8328c5410e8
delete.m: Permit a vector of handles to be deleted.

diff -r b04109600a82 -r 946035db5605 scripts/ChangeLog
--- a/scripts/ChangeLog	Mon Oct 06 20:33:59 2008 -0400
+++ b/scripts/ChangeLog	Mon Oct 06 20:36:31 2008 -0400
@@ -1,3 +1,7 @@
+2008-10-06  Ben Abbott  <bpabbott@mac.com>
+
+	* miscellaneous/delete.m: Permit a vector of handles to be deleted.
+
 2008-10-02  John W. Eaton  <jwe@octave.org>
 
 	* pkg/pkg.m (configure_make): Handle filenames with spaces.
diff -r b04109600a82 -r 946035db5605 scripts/miscellaneous/delete.m
--- a/scripts/miscellaneous/delete.m	Mon Oct 06 20:33:59 2008 -0400
+++ b/scripts/miscellaneous/delete.m	Mon Oct 06 20:36:31 2008 -0400
@@ -19,7 +19,7 @@
 ## -*- texinfo -*-
 ## @deftypefn {Function File} {} delete (@var{file})
 ## @deftypefnx {Function File} {} delete (@var{h})
-## Delete the named file or figure handle.
+## Delete the named file or graphics handle.
 ## @end deftypefn
 
 ## PKG_ADD: mark_as_command delete
@@ -31,9 +31,11 @@
   if (nargin == 1)
     if (ischar (arg))
       unlink (arg);
-    elseif (ishandle (arg))
+    elseif (all (ishandle (arg)))
       ## Delete a graphics object.
-      __go_delete__ (arg);
+      for n = 1:numel(arg)
+         __go_delete__ (arg(n));
+      endfor
     else
       error ("delete: expecting argument to be a filename or graphics handle");
     endif