(pcomplete-entries): Don't set `above-cutoff' to a value unless

pcomplete-cycle-cutoff-length is non-nil.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 9a1403cc104..cde0f07064f 100644
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -735,8 +735,9 @@ component, DEFAULT-DIRECTORY is used as the basis for completion."
                              (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)