From: Simon Marshall <simon@gnu.org>
Date: Tue, 13 Jun 1995 08:16:08 +0000 (+0000)
Subject: check comint-input-ring-file-name for the empty string too.
X-Git-Tag: emacs-19.34~3658
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=525c5be7ddf9ec6a873832194b41eacd65a9dc3c;p=emacs.git

check comint-input-ring-file-name for the empty string too.
---

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")))