procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

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

Fixes: debbugs:16854
This commit is contained in:
Dmitry Gutov 2014-02-26 04:02:21 +02:00
parent 0e46275b4d
commit 40ff7f86b6
2 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/ert.el
View file

@ -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)