branch: externals/dtache
commit 7fe012d48e07e736d7e3cf4da81130852ab398de
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>
Address redraw in tests
Also simplify build script.
---
.build.yml | 1 -
dtache.el | 2 +-
test/dtache-test.el | 4 ++--
3 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/.build.yml b/.build.yml
index b0ad527f09..e1064d970d 100644
--- a/.build.yml
+++ b/.build.yml
@@ -7,5 +7,4 @@ environment:
tasks:
- guix: |
cd $project
- guix pull
guix build --file=guix.scm
diff --git a/dtache.el b/dtache.el
index 7710ab95c2..c41bd7dc2f 100644
--- a/dtache.el
+++ b/dtache.el
@@ -792,7 +792,7 @@ Optionally CONCAT the command return command into a string."
,socket
"-r none")
" ")
- `(,dtach-arg ,socket "-r none"))
+ `(,dtach-arg ,socket "-r" "none"))
(if concat
(mapconcat #'identity
`(,dtache-dtach-program
diff --git a/test/dtache-test.el b/test/dtache-test.el
index 5268f6e7a0..59887bd334 100644
--- a/test/dtache-test.el
+++ b/test/dtache-test.el
@@ -90,8 +90,8 @@
(should (equal expected (dtache-dtach-command session)))
(should (equal expected-concat (dtache-dtach-command session t))))
(let* ((dtache-session-mode 'attach)
- (expected `("-a" ,(dtache--session-file session 'socket t)))
- (expected-concat (format "%s -a %s"
+ (expected `("-a" ,(dtache--session-file session 'socket t) "-r"
"none"))
+ (expected-concat (format "%s -a %s -r none"
dtache-dtach-program
(dtache--session-file session 'socket
t))))
(should (equal expected (dtache-dtach-command session)))
