diff options
| -rw-r--r-- | lisp/shell.el | 2 | ||||
| -rw-r--r-- | test/lisp/shell-tests.el | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 98e830ee497..ecebf937e29 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -428,7 +428,7 @@ Thus, this does not include the shell's current directory.") (save-excursion (goto-char begin) (while (< (point) end) - (skip-chars-forward " \t\n") + (skip-chars-forward " \t\n;") (push (point) begins) (let ((arg ())) (while (looking-at diff --git a/test/lisp/shell-tests.el b/test/lisp/shell-tests.el index 6d262f8e7c9..7113cb941c1 100644 --- a/test/lisp/shell-tests.el +++ b/test/lisp/shell-tests.el @@ -34,8 +34,7 @@ (with-temp-buffer (shell-mode) (insert "cd ba;") - (forward-char -1) (should (equal (shell--parse-pcomplete-arguments) - '(("cd" "ba") 1 4))))) + '(("cd" "ba" "") 1 4))))) ;;; shell-tests.el ends here |