Mercurial > emacs

changeset 12201:a302425220b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
check comint-input-ring-file-name for the empty string too.
author Simon Marshall <simon@gnu.org>
date Tue, 13 Jun 1995 08:16:08 +0000
parents 4cd7efde834e
children 0bd2831dff40
files lisp/shell.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/shell.el	Tue Jun 13 03:48:49 1995 +0000
+++ b/lisp/shell.el	Tue Jun 13 08:16:08 1995 +0000
@@ -340,7 +340,8 @@
 	      (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")))