From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 10 Dec 2022 12:55:01 +0000 (+0200)
Subject: Fix infloop in 'shell-resync-dirs' with tcsh
X-Git-Tag: emacs-29.0.90~1256
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1753da24cd4;p=emacs.git

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)
---

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)