X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/d92df117f9e0b4768b5d4d48db5261a950f57c0a..5c78877693213f57d4d0a079fd9554c46eb35c6f:/lisp/minibuffer.el diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 3f9ec339c7..27050042b8 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -1054,7 +1054,7 @@ scroll the window of possible completions." (cons (copy-marker (field-beginning)) (copy-marker (field-end)))) (setq completion-all-sorted-completions comps)) -(defun completion--flush-all-sorted-completions (&rest start end len) +(defun completion--flush-all-sorted-completions (&optional start end _len) (unless (and start end (or (> start (cdr completion--all-sorted-completions-location)) (< end (car completion--all-sorted-completions-location))))