mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Classify lone symbol inside let varlist as variable

Browse source 
* 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.
This commit is contained in:
Dmitry Gutov 2015-05-04 18:50:44 +03:00
parent 14c1d2106c
commit fe4e258b17
2 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/progmodes/elisp-mode.el
View file

@ -544,12 +544,13 @@ It can be quoted, or be inside a quoted form."
(< (point) beg))))) (< (point) beg)))))
(list t obarray (list t obarray
:predicate (lambda (sym) (get sym 'error-conditions)))) :predicate (lambda (sym) (get sym 'error-conditions))))
((and ?\( ((or `let `let*
(guard (save-excursion (and ?\(
(goto-char (1- beg)) (guard (save-excursion
(up-list -1) (goto-char (1- beg))
(forward-symbol -1) (up-list -1)
(looking-at "\\_<let\\*?\\_>")))) (forward-symbol -1)
(looking-at "\\_<let\\*?\\_>")))))
(list t obarray (list t obarray
:predicate #'boundp :predicate #'boundp
:company-doc-buffer #'elisp--company-doc-buffer :company-doc-buffer #'elisp--company-doc-buffer

9
test/automated/elisp-mode-tests.el
View file

@ -84,5 +84,14 @@
(should (member "bar" comps)) (should (member "bar" comps))
(should (member "baz" comps))))) (should (member "baz" comps)))))
(ert-deftest completest-variables-in-let-bindings ()
(dolist (text '("(let (ba" "(let* ((ba"))
(with-temp-buffer
(emacs-lisp-mode)
(insert text)
(let ((comps (elisp--test-completions)))
(should (member "backup-inhibited" comps))
(should-not (member "backup-buffer" comps))))))
(provide 'elisp-mode-tests) (provide 'elisp-mode-tests)
;;; elisp-mode-tests.el ends here ;;; elisp-mode-tests.el ends here