mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

* 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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):

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)