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

3f9e315a · Richard M. Stallman · fb145562 · 3f9e315a
Commit 3f9e315a authored Oct 02, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/shell.el lisp/shell.el +1 -1

No files found.
--- 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")))