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 /lisp/progmodes | |
| 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 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/elisp-mode.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 7c9a2d7c422..18da0762c96 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el | |||
| @@ -544,12 +544,13 @@ It can be quoted, or be inside a quoted form." | |||
| 544 | (< (point) beg))))) | 544 | (< (point) beg))))) |
| 545 | (list t obarray | 545 | (list t obarray |
| 546 | :predicate (lambda (sym) (get sym 'error-conditions)))) | 546 | :predicate (lambda (sym) (get sym 'error-conditions)))) |
| 547 | ((and ?\( | 547 | ((or `let `let* |
| 548 | (guard (save-excursion | 548 | (and ?\( |
| 549 | (goto-char (1- beg)) | 549 | (guard (save-excursion |
| 550 | (up-list -1) | 550 | (goto-char (1- beg)) |
| 551 | (forward-symbol -1) | 551 | (up-list -1) |
| 552 | (looking-at "\\_<let\\*?\\_>")))) | 552 | (forward-symbol -1) |
| 553 | (looking-at "\\_<let\\*?\\_>"))))) | ||
| 553 | (list t obarray | 554 | (list t obarray |
| 554 | :predicate #'boundp | 555 | :predicate #'boundp |
| 555 | :company-doc-buffer #'elisp--company-doc-buffer | 556 | :company-doc-buffer #'elisp--company-doc-buffer |