Mercurial > emacs

comparison lisp/shell.el @ 8111:04ba433263d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell-mode): Don't read history from /dev/null.
author Richard M. Stallman <rms@gnu.org>
date Fri, 01 Jul 1994 20:45:59 +0000
parents bedead77e86f
children 79a07b5d938a
comparison
equal deleted inserted replaced
8110:bf6ecdddf78b 8111:04ba433263d8
344 (setq comint-input-ring-file-name 344 (setq comint-input-ring-file-name
345 (or (getenv "HISTFILE") 345 (or (getenv "HISTFILE")
346 (cond ((string-equal shell "bash") "~/.bash_history") 346 (cond ((string-equal shell "bash") "~/.bash_history")
347 ((string-equal shell "ksh") "~/.sh_history") 347 ((string-equal shell "ksh") "~/.sh_history")
348 (t "~/.history")))) 348 (t "~/.history"))))
349 (if (equal comint-input-ring-file-name "/dev/null")
350 (setq comint-input-ring-file-name nil))
349 (setq shell-dirstack-query 351 (setq shell-dirstack-query
350 (if (string-match "^k?sh$" shell) "pwd" "dirs"))) 352 (if (string-match "^k?sh$" shell) "pwd" "dirs")))
351 (run-hooks 'shell-mode-hook) 353 (run-hooks 'shell-mode-hook)
352 (comint-read-input-ring t)) 354 (comint-read-input-ring t))
353 355