From: Michael Albinus Date: Fri, 25 Oct 2013 12:07:34 +0000 (+0200) Subject: * emacs-lisp/ert.el (ert-run-tests-interactively): X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1128 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3dab0a832c6b237c0173ac8b4d297df2af66eb92;p=emacs.git * emacs-lisp/ert.el (ert-run-tests-interactively): Use `completing-read'. (Bug#9756) --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c7da1c86416..031e0e40697 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-10-25 Michael Albinus + + * emacs-lisp/ert.el (ert-run-tests-interactively): + Use `completing-read'. (Bug#9756) + 2013-10-25 Eli Zaretskii * simple.el (line-move): Call line-move-1 instead of @@ -86,7 +91,7 @@ (ert--stats-set-test-and-result, ert-char-for-test-result) (ert-string-for-test-result, ert-run-tests-batch) (ert--results-update-ewoc-hf, ert-run-tests-interactively): - Handle skipped tests. + Handle skipped tests. (Bug#9803) 2013-10-24 Glenn Morris diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index c63c5324c9f..ed7633e2795 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -1881,11 +1881,11 @@ and how to display message." ;; defined without cl. (car ert--selector-history) "t"))) - (read-from-minibuffer (if (null default) - "Run tests: " - (format "Run tests (default %s): " default)) - nil nil t 'ert--selector-history - default nil)) + (completing-read (if (null default) + "Run tests: " + (format "Run tests (default %s): " default)) + obarray #'ert-test-boundp nil nil + 'ert--selector-history default nil)) nil)) (unless message-fn (setq message-fn 'message)) (let ((output-buffer-name output-buffer-name)