diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-08-26 15:33:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-08-26 15:33:13 +0000 |
| commit | fbcb305501ecba980857af2c3e315a2ccb14d689 (patch) | |
| tree | 150b479123838a4b490e78eb0562195d62565061 /lisp/shell.el | |
| parent | 9f748a354fa98c0d5550485b694984352c0cf24a (diff) | |
| download | emacs-fbcb305501ecba980857af2c3e315a2ccb14d689.tar.gz | |
(shell-mode): Don't assume /dev/null is its own truename.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 3 |
1 files changed, 2 insertions, 1 deletions
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") |