From: Leo Liu Date: Thu, 26 Sep 2013 00:46:29 +0000 (+0800) Subject: * minibuffer.el (completion-all-sorted-completions): Make args X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1451 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3958758036f64a1c93728ab0a2cb9ea872c59e35;p=emacs.git * minibuffer.el (completion-all-sorted-completions): Make args optional as they are. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7b69330083d..cf450c55612 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-09-26 Leo Liu + + * minibuffer.el (completion-all-sorted-completions): Make args + optional as they are. + 2013-09-25 Daniel Colascione * emacs-lisp/cl-macs.el (cl-type-spec): Tell edebug what type diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index ab54b9da138..e588964a65b 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -1100,7 +1100,7 @@ scroll the window of possible completions." (if (eq (car bounds) base) md-at-point (completion-metadata (substring string 0 base) table pred)))) -(defun completion-all-sorted-completions (start end) +(defun completion-all-sorted-completions (&optional start end) (or completion-all-sorted-completions (let* ((start (or start (minibuffer-prompt-end))) (end (or end (point-max)))