Mercurial > emacs

comparison lisp/shell.el @ 9235:a55d058e5e1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(shell-mode): Compare the truename with /dev/null.
author Richard M. Stallman <rms@gnu.org>
date Sun, 02 Oct 1994 20:11:07 +0000
parents 323936455525
children 853d760cba83
comparison
equal deleted inserted replaced
9234:da491f38518c 9235:a55d058e5e1a
345 (setq comint-input-ring-file-name 345 (setq comint-input-ring-file-name
346 (or (getenv "HISTFILE") 346 (or (getenv "HISTFILE")
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")))
354 (run-hooks 'shell-mode-hook) 354 (run-hooks 'shell-mode-hook)
355 (comint-read-input-ring t)) 355 (comint-read-input-ring t))