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> 2014-02-25 Glenn Morris <rgm@gnu.org>
* image.el (image-animate, image-animate-timeout): * image.el (image-animate, image-animate-timeout):
......
...@@ -1882,11 +1882,12 @@ and how to display message." ...@@ -1882,11 +1882,12 @@ and how to display message."
;; defined without cl. ;; defined without cl.
(car ert--selector-history) (car ert--selector-history)
"t"))) "t")))
(completing-read (if (null default) (read
"Run tests: " (completing-read (if (null default)
(format "Run tests (default %s): " default)) "Run tests: "
obarray #'ert-test-boundp nil nil (format "Run tests (default %s): " default))
'ert--selector-history default nil)) obarray #'ert-test-boundp nil nil
'ert--selector-history default nil)))
nil)) nil))
(unless message-fn (setq message-fn 'message)) (unless message-fn (setq message-fn 'message))
(let ((output-buffer-name output-buffer-name) (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