X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/490a9458c8310140a255b30330e9940fb68e27ef..0dfeed58d3244487a545bb4d4e19658eb299937b:/src/ccl.c

diff --git a/src/ccl.c b/src/ccl.c
index 7f77e1d22f..8fec18296a 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -2130,7 +2130,7 @@ usage: (ccl-execute-on-string CCL-PROGRAM STATUS STRING &optional CONTINUE UNIBY
 	  produced_chars += ccl.produced;
 	  offset = outp - outbuf;
 	  shortfall = ccl.produced * max_expansion - (outbufsize - offset);
-	  if (0 < shortfall)
+	  if (shortfall > 0)
 	    {
 	      outbuf = xpalloc (outbuf, &outbufsize, shortfall, -1, 1);
 	      outp = outbuf + offset;