From c4ad54812acaf8f156962047eaaaf75b0c0ecf96 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 28 Jun 2024 11:28:33 +0200 Subject: [PATCH] Make `shell-mode' more robust * lisp/shell.el (shell-mode): Ensure that `comint-input-ring-file-name' is non-nil when calling `file-truename'. --- lisp/shell.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/shell.el b/lisp/shell.el index 9399906715f..e1936ff1119 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -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.