Commit 3dab0a83 authored by Michael Albinus's avatar Michael Albinus
Browse files

* emacs-lisp/ert.el (ert-run-tests-interactively):

Use `completing-read'.  (Bug#9756)
parent 619a46f8
2013-10-25 Michael Albinus <michael.albinus@gmx.de>
* emacs-lisp/ert.el (ert-run-tests-interactively):
Use `completing-read'. (Bug#9756)
2013-10-25 Eli Zaretskii <eliz@gnu.org>
* 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 <rgm@gnu.org>
......
......@@ -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)
......
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