Skip to content

GitLab

Commit d86e0c59 authored by John Wiegley's avatar John Wiegley
Browse files

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

pcomplete-cycle-cutoff-length is non-nil.
parent 86d98c33
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
lisp/pcomplete.el
View file @ d86e0c59
...@@ -735,8 +735,9 @@ component, DEFAULT-DIRECTORY is used as the basis for completion." ...@@ -735,8 +735,9 @@ component, DEFAULT-DIRECTORY is used as the basis for completion."
(string-match pcomplete-dir-ignore file)) (string-match pcomplete-dir-ignore file))
(and pcomplete-file-ignore (and pcomplete-file-ignore
(string-match pcomplete-file-ignore file)))))))) (string-match pcomplete-file-ignore file))))))))
(setq above-cutoff (> (length completions) (setq above-cutoff (and pcomplete-cycle-cutoff-length
pcomplete-cycle-cutoff-length)) (> (length completions)
pcomplete-cycle-cutoff-length)))
(sort completions (sort completions
(function (function
(lambda (l r) (lambda (l r)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment