diff options
| author | Richard M. Stallman | 1994-10-02 20:11:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-02 20:11:07 +0000 |
| commit | 3f9e315acf720bc0e70f34a75d22f18831ef34df (patch) | |
| tree | 2604713bd960b0f13c66c70fcfbb952dbbc9efe3 | |
| parent | fb145562db02c6a9a20c3c25e34d61dcafe4f9e3 (diff) | |
| download | emacs-3f9e315acf720bc0e70f34a75d22f18831ef34df.tar.gz emacs-3f9e315acf720bc0e70f34a75d22f18831ef34df.zip | |
(shell-mode): Compare the truename with /dev/null.
| -rw-r--r-- | lisp/shell.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 98c3b48fc69..6571c0d4d58 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -347,7 +347,7 @@ buffer." | |||
| 347 | (cond ((string-equal shell "bash") "~/.bash_history") | 347 | (cond ((string-equal shell "bash") "~/.bash_history") |
| 348 | ((string-equal shell "ksh") "~/.sh_history") | 348 | ((string-equal shell "ksh") "~/.sh_history") |
| 349 | (t "~/.history")))) | 349 | (t "~/.history")))) |
| 350 | (if (equal comint-input-ring-file-name "/dev/null") | 350 | (if (equal (file-truename comint-input-ring-file-name) "/dev/null") |
| 351 | (setq comint-input-ring-file-name nil)) | 351 | (setq comint-input-ring-file-name nil)) |
| 352 | (setq shell-dirstack-query | 352 | (setq shell-dirstack-query |
| 353 | (if (string-match "^k?sh$" shell) "pwd" "dirs"))) | 353 | (if (string-match "^k?sh$" shell) "pwd" "dirs"))) |