# HG changeset patch
# User jwe
# Date 1044979809 0
# Node ID 1ced186d4b6b105a0ec15879da1f29d25c3d5572
# Parent  236c10efcde2c61ff6565c8d9717e98547750c42
[project @ 2003-02-11 16:10:09 by jwe]

diff -r 236c10efcde2 -r 1ced186d4b6b scripts/ChangeLog
--- a/scripts/ChangeLog	Mon Feb 10 21:57:15 2003 +0000
+++ b/scripts/ChangeLog	Tue Feb 11 16:10:09 2003 +0000
@@ -1,3 +1,7 @@
+2003-02-11  Paul Kienzle <pkienzle@users.sf.net>
+
+	* set/union.m: Preserve the orientation of inputs.
+
 2003-01-23  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* general/int2str.m: Eliminate leading spaces.
diff -r 236c10efcde2 -r 1ced186d4b6b scripts/set/union.m
--- a/scripts/set/union.m	Mon Feb 10 21:57:15 2003 +0000
+++ b/scripts/set/union.m	Tue Feb 11 16:10:09 2003 +0000
@@ -39,16 +39,17 @@
     usage ("union(a,b)");
   endif
 
-  if(isempty(a))
-    y = create_set(b);
-  elseif(isempty(b))
-    y = create_set(a);
+  if (isempty (a))
+    y = create_set (b);
+  elseif (isempty (b))
+    y = create_set (a);
   else
-    [nra, nca] = size(a);
-    a = reshape(a,1,nra*nca);
-    [nrb, ncb] = size(b);
-    b = reshape(b,1,nrb*ncb);
-    y = create_set([a, b]);
+    y = create_set ([a(:); b(:)]);
+    if (size (a, 1) == 1 || size (b, 1) == 1)
+      y = y(:).';
+    else
+      y = y(:);
+    endif
   endif
 
 endfunction