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")))) |