(shell-mode): Compare the truename with /dev/null.

diff --git a/lisp/shell.el b/lisp/shell.el
index 98c3b48fc696938a992bb298eb52a7354d05b180..6571c0d4d589972c0cc6d1573cb5686192e80fe6 100644 (file)
--- 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")))