branch: master
commit fc5c159010d7ecadd8b8e80a9b92fc46ad9d2b13
Author: rubikitch <[email protected]>
Commit: rubikitch <[email protected]>
test-simple-run: make it a command.
---
test-simple.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/test-simple.el b/test-simple.el
index 05a4e90..e257855 100644
--- a/test-simple.el
+++ b/test-simple.el
@@ -357,7 +357,14 @@ After calling this function, you can run test by key
specified by `test-simple-r
It is preferable to write at the first line of test files as a comment, e.g,
;;;; (test-simple-run \"emacs -batch -L %s -l %s\" (file-name-directory
(locate-library \"test-simple.elc\")) buffer-file-name)
-"
+
+Calling this function interactively, COMMAND-LINE-FORMATS is set above."
+ (interactive)
+ (setq command-line-formats
+ (or command-line-formats
+ (list "emacs -batch -L %s -l %s"
+ (file-name-directory (locate-library "test-simple.elc"))
+ buffer-file-name)))
(let ((func (lambda ()
(interactive)
(funcall test-simple-runner-interface
