* lisp/emacs-lisp/lisp.el (lisp-completion-at-point): Complete var names for

let-bindings.
This commit is contained in:
Stefan Monnier 2013-10-17 00:49:42 -04:00
parent 85527ff309
commit e333fb100b
2 changed files with 14 additions and 0 deletions

View file

@ -867,6 +867,17 @@ considered."
(< (point) beg)))))
(list t obarray
:predicate (lambda (sym) (get sym 'error-conditions))))
((and ?\(
(guard (save-excursion
(goto-char (1- beg))
(up-list -1)
(forward-symbol -1)
(looking-at "\\_<let\\*?\\_>"))))
(list t obarray
:predicate #'boundp
:company-doc-buffer #'lisp--company-doc-buffer
:company-docsig #'lisp--company-doc-string
:company-location #'lisp--company-location))
(_ (list nil obarray
:predicate #'fboundp
:company-doc-buffer #'lisp--company-doc-buffer