diff options
| -rw-r--r-- | lisp/shell.el | 1 |
1 files changed, 1 insertions, 0 deletions
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." | |||
| 1162 | (dlsl nil) | 1162 | (dlsl nil) |
| 1163 | (pos 0) | 1163 | (pos 0) |
| 1164 | (ds nil)) | 1164 | (ds nil)) |
| 1165 | (setq dls (string-trim-right dls "[ ]+")) | ||
| 1165 | ;; Split the dirlist into whitespace and non-whitespace chunks. | 1166 | ;; Split the dirlist into whitespace and non-whitespace chunks. |
| 1166 | ;; dlsl will be a reversed list of tokens. | 1167 | ;; dlsl will be a reversed list of tokens. |
| 1167 | (while (string-match "\\(\\S-+\\|\\s-+\\)" dls pos) | 1168 | (while (string-match "\\(\\S-+\\|\\s-+\\)" dls pos) |