Commit 40ff7f86 authored by Dmitry Gutov's avatar Dmitry Gutov
Browse files

* lisp/emacs-lisp/ert.el (ert-run-tests-interactively): `read' the

result of `completing-read' in the interactive form.

Fixes: debbugs:16854
parent 0e46275b
2014-02-26 Dmitry Gutov <dgutov@yandex.ru>
* emacs-lisp/ert.el (ert-run-tests-interactively): `read' the
result of `completing-read' in the interactive form. (Bug#16854)
2014-02-25 Glenn Morris <rgm@gnu.org>
* image.el (image-animate, image-animate-timeout):
......
......@@ -1882,11 +1882,12 @@ and how to display message."
;; defined without cl.
(car ert--selector-history)
"t")))
(completing-read (if (null default)
"Run tests: "
(format "Run tests (default %s): " default))
obarray #'ert-test-boundp nil nil
'ert--selector-history default nil))
(read
(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