Mercurial > emacs
comparison lisp/shell.el @ 15933:9df952241adc
(shell-mode): Don't assume /dev/null is its own truename.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 26 Aug 1996 15:33:13 +0000 |
| parents | 574ec5119c7a |
| children | f9d43993ed5a |
comparison
equal
deleted
inserted
replaced
| 15932:e4d0cf418b2b | 15933:9df952241adc |
|---|---|
| 355 (or (getenv "HISTFILE") | 355 (or (getenv "HISTFILE") |
| 356 (cond ((string-equal shell "bash") "~/.bash_history") | 356 (cond ((string-equal shell "bash") "~/.bash_history") |
| 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") |
| 364 ((string-equal shell "ksh") "echo $PWD ~-") | 365 ((string-equal shell "ksh") "echo $PWD ~-") |
| 365 (t "dirs")))) | 366 (t "dirs")))) |