[elpa] externals/dtache e1ebc053bb 116/158: Avoid saving history file for dtache-shell-command

[ELPA Syncer]

branch: externals/dtache
commit e1ebc053bbfe99732330f869c55ce9d7555b2c82
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Avoid saving history file for dtache-shell-command
---
 dtache-shell.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/dtache-shell.el b/dtache-shell.el
index 2feadd99d4..69f3ca99c3 100644
--- a/dtache-shell.el
+++ b/dtache-shell.el
@@ -124,11 +124,13 @@ cluttering the comint-history with dtach commands."
 (defun dtache-shell--save-history ()
   "Save `shell' history."
   (with-connection-local-variables
-   (let ((comint-input-ring-file-name
-          (concat
-           (file-remote-p default-directory)
-           dtache-shell-history-file)))
-     (comint-write-input-ring))))
+   (unless (string-prefix-p "\*Dtache Shell Command" (buffer-name))
+           (let* ((inhibit-message t)
+                  (comint-input-ring-file-name
+                   (concat
+                    (file-remote-p default-directory)
+                    dtache-shell-history-file)))
+             (comint-write-input-ring)))))
 
 (defun dtache-shell-override-history (orig-fun &rest args)
   "Override history to read `dtache-shell-history-file' in ORIG-FUN with ARGS.