Mercurial > hg > octave-nkf

diff scripts/strings/strcat.m @ 3426:f8dde1807dee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-13 08:40:00 by jwe]
author jwe
date Thu, 13 Jan 2000 08:40:53 +0000
parents 4f40efa995c1
children e0b7a493e5a8
line wrap: on
line diff
--- a/scripts/strings/strcat.m
+++ b/scripts/strings/strcat.m
@@ -20,7 +20,7 @@
 ## -*- texinfo -*-
 ## @deftypefn {Function File} {} strcat (@var{s1}, @var{s2}, @dots{})
 ## Return a string containing all the arguments concatenated.  For example,
-## 
+##
 ## @example
 ## @group
 ## s = [ "ab"; "cde" ];
@@ -40,18 +40,18 @@
     unwind_protect
       empty_list_elements_ok = 1;
       if (isstr (s) && isstr (t))
-      	tmpst = [s, t];
+        tmpst = [s, t];
       else
-      	error ("strcat: all arguments must be strings");
+        error ("strcat: all arguments must be strings");
       endif
       n = nargin - 2;
       while (n--)
-      	tmp = va_arg ();
-      	if (isstr (tmp))
+        tmp = va_arg ();
+        if (isstr (tmp))
           tmpst = [tmpst, tmp];
-      	else
+        else
           error ("strcat: all arguments must be strings");
-      	endif
+        endif
       endwhile
     unwind_protect_cleanup
       empty_list_elements_ok = save_empty_list_elements_ok;