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

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

Browse source 
Use `completing-read'.  (Bug#9756)
This commit is contained in:
Michael Albinus 2013-10-25 14:07:34 +02:00
parent 619a46f8d2
commit 3dab0a832c
2 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

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

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

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