[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r116563: * lisp/emacs-lisp/ert.el (ert-run-tests-int
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] trunk r116563: * lisp/emacs-lisp/ert.el (ert-run-tests-interactively): `read' the |
Date: |
Wed, 26 Feb 2014 02:02:29 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r116563: * lisp/emacs-lisp/ert.el (ert-run-tests-interactively): `read' the,
Dmitry Gutov <=