From 525c5be7ddf9ec6a873832194b41eacd65a9dc3c Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Tue, 13 Jun 1995 08:16:08 +0000 Subject: [PATCH] check comint-input-ring-file-name for the empty string too. --- lisp/shell.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/shell.el b/lisp/shell.el index 02d00fd72e2..33e10847616 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -340,7 +340,8 @@ buffer." (cond ((string-equal shell "bash") "~/.bash_history") ((string-equal shell "ksh") "~/.sh_history") (t "~/.history")))) - (if (equal (file-truename comint-input-ring-file-name) "/dev/null") + (if (or (equal comint-input-ring-file-name "") + (equal (file-truename comint-input-ring-file-name) "/dev/null")) (setq comint-input-ring-file-name nil)) (setq shell-dirstack-query (if (string-match "^k?sh$" shell) "pwd" "dirs"))) -- 2.39.2