diff options
| author | Dmitry Gutov | 2015-05-04 18:50:44 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2015-05-04 18:51:48 +0300 |
| commit | fe4e258b17feb529ac364daee67a5f0441f851f4 (patch) | |
| tree | 14fb6576379d11321158da32f0a721b520b1a50b /test | |
| parent | 14c1d2106cc770581d16a695734eb56e7b9662f2 (diff) | |
| download | emacs-fe4e258b17feb529ac364daee67a5f0441f851f4.tar.gz emacs-fe4e258b17feb529ac364daee67a5f0441f851f4.zip | |
Classify lone symbol inside let varlist as variable
* lisp/progmodes/elisp-mode.el (elisp-completion-at-point):
Classify lone symbol inside let varlist as variable.
* test/automated/elisp-mode-tests.el (completest-variables-in-let-bindings):
New test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/elisp-mode-tests.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/automated/elisp-mode-tests.el b/test/automated/elisp-mode-tests.el index a4148e9e5ff..26f903dbd0c 100644 --- a/test/automated/elisp-mode-tests.el +++ b/test/automated/elisp-mode-tests.el | |||
| @@ -84,5 +84,14 @@ | |||
| 84 | (should (member "bar" comps)) | 84 | (should (member "bar" comps)) |
| 85 | (should (member "baz" comps))))) | 85 | (should (member "baz" comps))))) |
| 86 | 86 | ||
| 87 | (ert-deftest completest-variables-in-let-bindings () | ||
| 88 | (dolist (text '("(let (ba" "(let* ((ba")) | ||
| 89 | (with-temp-buffer | ||
| 90 | (emacs-lisp-mode) | ||
| 91 | (insert text) | ||
| 92 | (let ((comps (elisp--test-completions))) | ||
| 93 | (should (member "backup-inhibited" comps)) | ||
| 94 | (should-not (member "backup-buffer" comps)))))) | ||
| 95 | |||
| 87 | (provide 'elisp-mode-tests) | 96 | (provide 'elisp-mode-tests) |
| 88 | ;;; elisp-mode-tests.el ends here | 97 | ;;; elisp-mode-tests.el ends here |