diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-12-04 12:39:47 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-12-04 12:39:47 -0500 |
| commit | eaeeece92da51b517097667f13d580aa92ad5d59 (patch) | |
| tree | 12d633ca416055fe94706298a92f889b49dfb6b2 /test/lisp/shell-tests.el | |
| parent | f745cf8c438cdb258bc1a37b617749d1c84e688e (diff) | |
| download | emacs-eaeeece92da51b517097667f13d580aa92ad5d59.tar.gz emacs-eaeeece92da51b517097667f13d580aa92ad5d59.tar.bz2 emacs-eaeeece92da51b517097667f13d580aa92ad5d59.zip | |
* lisp/shell.el (shell--parse-pcomplete-arguments): Stop at semi-colon
* test/lisp/shell-tests.el (shell-tests-completion-before-semi):
New corresponding test.
Diffstat (limited to 'test/lisp/shell-tests.el')
| -rw-r--r-- | test/lisp/shell-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/shell-tests.el b/test/lisp/shell-tests.el index 105701ebbc8..9550800f453 100644 --- a/test/lisp/shell-tests.el +++ b/test/lisp/shell-tests.el @@ -30,4 +30,12 @@ "Test problem found by Filipp Gunbin in emacs-devel." (should (equal (car (shell--unquote&requote-argument "te'st" 2)) "test"))) +(ert-deftest shell-tests-completion-before-semi () + (with-temp-buffer + (shell-mode) + (insert "cd ba;") + (forward-char -1) + (should (equal (shell--parse-pcomplete-arguments) + '(("cd" "ba") 1 4))))) + ;;; shell-tests.el ends here |