# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 1028578032 0
# Node ID fa3f7092b7c314fcef74678d2878258c6ea657b3
# Parent  fb2254910fb62be65faa9d77039196aacd9acb3c
(pcomplete-entries): Don't set `above-cutoff' to a value unless
pcomplete-cycle-cutoff-length is non-nil.

diff -r fb2254910fb6 -r fa3f7092b7c3 lisp/pcomplete.el
--- a/lisp/pcomplete.el	Mon Aug 05 16:35:07 2002 +0000
+++ b/lisp/pcomplete.el	Mon Aug 05 20:07:12 2002 +0000
@@ -735,8 +735,9 @@
 			     (string-match pcomplete-dir-ignore file))
 		      (and pcomplete-file-ignore
 			   (string-match pcomplete-file-ignore file))))))))
-      (setq above-cutoff (> (length completions)
-			    pcomplete-cycle-cutoff-length))
+      (setq above-cutoff (and pcomplete-cycle-cutoff-length
+			     (> (length completions)
+				pcomplete-cycle-cutoff-length)))
       (sort completions
 	    (function
 	     (lambda (l r)