procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix infloop in 'shell-resync-dirs' with tcsh

Browse source 
* lisp/shell.el (shell-resync-dirs): Remove trailing slash from
output of 'dirs', for csh/tcsh's sake.  (Bug#59804)
This commit is contained in:
Eli Zaretskii 2022-12-10 14:55:01 +02:00
parent 2f1269c333
commit 1753da24cd
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/shell.el
View file

@ -1162,6 +1162,7 @@ line output and parses it to form the new directory stack."
(dlsl nil) (dlsl nil)
(pos 0) (pos 0)
(ds nil)) (ds nil))
(setq dls (string-trim-right dls "[ ]+"))
;; Split the dirlist into whitespace and non-whitespace chunks. ;; Split the dirlist into whitespace and non-whitespace chunks.
;; dlsl will be a reversed list of tokens. ;; dlsl will be a reversed list of tokens.
(while (string-match "\\(\\S-+\\|\\s-+\\)" dls pos) (while (string-match "\\(\\S-+\\|\\s-+\\)" dls pos)