* lisp/emacs-lisp/lisp.el (lisp-completion-at-point): Complete var names for
let-bindings.
This commit is contained in:
parent
85527ff309
commit
e333fb100b
2 changed files with 14 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue