martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make `shell-mode' more robust

Browse Source 
* lisp/shell.el (shell-mode): Ensure that
`comint-input-ring-file-name' is non-nil when calling `file-truename'.
This commit is contained in:
Michael Albinus
2024-06-28 11:28:33 +02:00
parent c4ec905c9a
commit c4ad54812a
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/shell.el
View File

@@ -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.