[elpa] externals/dtache aca73c1e60 152/158: Address issues from melpazoid in melpa/melpa7867

[ELPA Syncer]

branch: externals/dtache
commit aca73c1e6038cb73afc43d8237b11dda657231ac
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@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