From: Dmitry Gutov <dgutov@yandex.ru>
Date: Wed, 26 Feb 2014 02:02:21 +0000 (+0200)
Subject: * lisp/emacs-lisp/ert.el (ert-run-tests-interactively): `read' the
X-Git-Tag: emacs-24.3.90~357^2~7^2~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40ff7f86b6e030763327fd306702ba0928e5b09e;p=emacs.git

* lisp/emacs-lisp/ert.el (ert-run-tests-interactively): `read' the
result of `completing-read' in the interactive form.

Fixes: debbugs:16854
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07812f6fced..56ff5b1c506 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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):
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index ee058a8f607..34041aab9a8 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -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)