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