From 9ee55f41fd320549bb5635d1f13037f3406a7664 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 2 Oct 1994 20:11:07 +0000 Subject: (shell-mode): Compare the truename with /dev/null. --- lisp/shell.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/shell.el') diff --git a/lisp/shell.el b/lisp/shell.el index 98c3b48fc69..6571c0d4d58 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -347,7 +347,7 @@ buffer." (cond ((string-equal shell "bash") "~/.bash_history") ((string-equal shell "ksh") "~/.sh_history") (t "~/.history")))) - (if (equal comint-input-ring-file-name "/dev/null") + (if (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"))) -- cgit v1.2.1