Mercurial > hg > octave-nkf

diff scripts/strings/blanks.m @ 3081:8c779ed7979b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-08-25 15:51:20 by jwe]
author jwe
date Mon, 25 Aug 1997 15:52:58 +0000
parents c9f70d39255f
children 4f40efa995c1
line wrap: on
line diff
--- a/scripts/strings/blanks.m
+++ b/scripts/strings/blanks.m
@@ -30,10 +30,10 @@
     usage ("blanks (n)");
   endif
 
-  if (is_scalar (n) && n > 0 && n == round (n))
+  if (is_scalar (n) && n == round (n) && (treat_neg_dim_as_zero || n >= 0))
     s = setstr (ones (1, n) * toascii (" "));
   else
-    error ("blanks: n must be a positive integer");
+    error ("blanks: n must be a non-negative integer");
   endif
 
 endfunction