mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

check comint-input-ring-file-name for the empty string too.

Browse source
This commit is contained in:
Simon Marshall 1995-06-13 08:16:08 +00:00
parent fe4163b126
commit 525c5be7dd
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/shell.el
View file

@ -340,7 +340,8 @@ buffer."
(cond ((string-equal shell "bash") "~/.bash_history")
((string-equal shell "ksh") "~/.sh_history")
(t "~/.history"))))
(if (equal (file-truename comint-input-ring-file-name) "/dev/null")
(if (or (equal comint-input-ring-file-name "")
(equal (file-truename comint-input-ring-file-name) "/dev/null"))
(setq comint-input-ring-file-name nil))
(setq shell-dirstack-query
(if (string-match "^k?sh$" shell) "pwd" "dirs")))