mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-09-02 01:35:32 +00:00
Make `shell-mode' more robust
* lisp/shell.el (shell-mode): Ensure that `comint-input-ring-file-name' is non-nil when calling `file-truename'.
This commit is contained in:
parent
c4ec905c9a
commit
c4ad54812a
1 changed files with 4 additions and 3 deletions
|
@ -764,9 +764,10 @@ command."
|
|||
(setq-local comint-input-ring-size hsize))
|
||||
(setq comint-input-ring-file-name
|
||||
(concat remote hfile)))
|
||||
(if (or (equal comint-input-ring-file-name "")
|
||||
(equal (file-truename comint-input-ring-file-name)
|
||||
(file-truename null-device)))
|
||||
(if (and comint-input-ring-file-name
|
||||
(or (equal comint-input-ring-file-name "")
|
||||
(equal (file-truename comint-input-ring-file-name)
|
||||
(file-truename null-device))))
|
||||
(setq comint-input-ring-file-name nil))
|
||||
;; Arrange to write out the input ring on exit, if the shell doesn't
|
||||
;; do this itself.
|
||||
|
|
Loading…
Reference in a new issue