Mercurial > emacs

changeset 46818:fa3f7092b7c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pcomplete-entries): Don't set `above-cutoff' to a value unless pcomplete-cycle-cutoff-length is non-nil.
author John Wiegley <johnw@newartisans.com>
date Mon, 05 Aug 2002 20:07:12 +0000
parents fb2254910fb6
children acd6b7b35363
files lisp/pcomplete.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)