From 1753da24cd44821bf39f03dc32476e320e732fca Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 10 Dec 2022 14:55:01 +0200 Subject: [PATCH] Fix infloop in 'shell-resync-dirs' with tcsh * lisp/shell.el (shell-resync-dirs): Remove trailing slash from output of 'dirs', for csh/tcsh's sake. (Bug#59804) --- lisp/shell.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/shell.el b/lisp/shell.el index b396bc2b180..dadbdcbc034 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -1162,6 +1162,7 @@ line output and parses it to form the new directory stack." (dlsl nil) (pos 0) (ds nil)) + (setq dls (string-trim-right dls "[ ]+")) ;; Split the dirlist into whitespace and non-whitespace chunks. ;; dlsl will be a reversed list of tokens. (while (string-match "\\(\\S-+\\|\\s-+\\)" dls pos) -- 2.39.2