[Emacs-diffs] trunk r116563: * lisp/emacs-lisp/ert.el (ert-run-tests-interactively): `read' the

[Dmitry Gutov]

------------------------------------------------------------
revno: 116563
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16854
committer: Dmitry Gutov <address@hidden>
branch nick: trunk
timestamp: Wed 2014-02-26 04:02:21 +0200
message:
  * lisp/emacs-lisp/ert.el (ert-run-tests-interactively): `read' the
  result of `completing-read' in the interactive form.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/ert.el         ert.el-20110112160650-056hnl9qhpjvjicy-2

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-25 21:59:14 +0000
+++ b/lisp/ChangeLog    2014-02-26 02:02:21 +0000
@@ -1,3 +1,8 @@
+2014-02-26  Dmitry Gutov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * image.el (image-animate, image-animate-timeout):

=== modified file 'lisp/emacs-lisp/ert.el'
--- a/lisp/emacs-lisp/ert.el    2014-02-04 17:37:08 +0000
+++ b/lisp/emacs-lisp/ert.el    2014-02-26 02:02:21 +0000
@@ -1882,11 +1882,12 @@
                             ;; 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)