aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/shell.el
diff options
context:
space:
mode:
authorRichard M. Stallman1996-08-26 15:33:13 +0000
committerRichard M. Stallman1996-08-26 15:33:13 +0000
commitfbcb305501ecba980857af2c3e315a2ccb14d689 (patch)
tree150b479123838a4b490e78eb0562195d62565061 /lisp/shell.el
parent9f748a354fa98c0d5550485b694984352c0cf24a (diff)
downloademacs-fbcb305501ecba980857af2c3e315a2ccb14d689.tar.gz
emacs-fbcb305501ecba980857af2c3e315a2ccb14d689.zip
(shell-mode): Don't assume /dev/null is its own truename.
Diffstat (limited to 'lisp/shell.el')
-rw-r--r--lisp/shell.el3
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."
357 ((string-equal shell "ksh") "~/.sh_history") 357 ((string-equal shell "ksh") "~/.sh_history")
358 (t "~/.history")))) 358 (t "~/.history"))))
359 (if (or (equal comint-input-ring-file-name "") 359 (if (or (equal comint-input-ring-file-name "")
360 (equal (file-truename comint-input-ring-file-name) "/dev/null")) 360 (equal (file-truename comint-input-ring-file-name)
361 (file-truename "/dev/null")))
361 (setq comint-input-ring-file-name nil)) 362 (setq comint-input-ring-file-name nil))
362 (setq shell-dirstack-query 363 (setq shell-dirstack-query
363 (cond ((string-equal shell "sh") "pwd") 364 (cond ((string-equal shell "sh") "pwd")