From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Aug 1996 15:33:13 +0000 (+0000)
Subject: (shell-mode): Don't assume /dev/null is its own truename.
X-Git-Tag: emacs-20.1~4011
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbcb305501ecba980857af2c3e315a2ccb14d689;p=emacs.git

(shell-mode): Don't assume /dev/null is its own truename.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index 9d732bd3fd9..1d4dfcef3c1 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -357,7 +357,8 @@ buffer."
 		    ((string-equal shell "ksh") "~/.sh_history")
 		    (t "~/.history"))))
     (if (or (equal comint-input-ring-file-name "")
-	    (equal (file-truename comint-input-ring-file-name) "/dev/null"))
+	    (equal (file-truename comint-input-ring-file-name)
+		   (file-truename "/dev/null")))
 	(setq comint-input-ring-file-name nil))
     (setq shell-dirstack-query
 	  (cond ((string-equal shell "sh") "pwd")