branch: externals/dtache
commit aca73c1e6038cb73afc43d8237b11dda657231ac
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>
Address issues from melpazoid in melpa/melpa7867
Fixing issues found by melpazoid.
---
dtache-eshell.el | 2 +-
dtache.el | 9 ++++-----
2 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/dtache-eshell.el b/dtache-eshell.el
index ec50b3666d..c35c785042 100644
--- a/dtache-eshell.el
+++ b/dtache-eshell.el
@@ -124,7 +124,7 @@ If prefix-argument directly DETACH from the session."
;;;###autoload
(define-minor-mode dtache-eshell-mode
"Integrate `dtache' in `eshell-mode'."
- :lighter "dtache-eshell"
+ :lighter " dtache-eshell"
:keymap (let ((map (make-sparse-keymap)))
map)
(make-local-variable 'eshell-preoutput-filter-functions)
diff --git a/dtache.el b/dtache.el
index fbe85c5d67..82252a8ed4 100644
--- a/dtache.el
+++ b/dtache.el
@@ -691,14 +691,14 @@ Optionally CONCAT the command return command into a
string."
(setq dtache--buffer-session session)
(if (eq dtache-session-mode 'attach)
(if concat
- (mapconcat 'identity
+ (mapconcat #'identity
`(,dtache-dtach-program
,dtach-arg
,socket)
" ")
`(,dtach-arg ,socket))
(if concat
- (mapconcat 'identity
+ (mapconcat #'identity
`(,dtache-dtach-program
,dtach-arg
,socket "-z"
@@ -981,8 +981,7 @@ Optionally make the path LOCAL to host."
(when (file-exists-p db)
(with-temp-buffer
(insert-file-contents db)
- (cl-assert (eq (point) (point-min)))
- (goto-char (point-min))
+ (cl-assert (bobp))
(when (string= (dtache--db-session-version) dtache-session-version)
(setq dtache--sessions
(read (current-buffer))))))))
@@ -1199,7 +1198,7 @@ Otherwise the current time is used."
;;;###autoload
(define-minor-mode dtache-shell-mode
"Integrate `dtache' in `shell-mode'."
- :lighter "dtache-shell"
+ :lighter " dtache-shell"
:keymap (let ((map (make-sparse-keymap)))
map)
(if dtache-shell-mode
