diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-10-17 00:49:42 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-10-17 00:49:42 -0400 |
commit | e333fb100ba1eac0533a58be233695317d68b5a3 (patch) | |
tree | 2c315f2e9c08f1cb4e4a218395c9a16ed7767b46 /lisp/emacs-lisp/lisp.el | |
parent | 85527ff309fc9ac5fbda80b119f021719902cc7c (diff) | |
download | emacs-e333fb100ba1eac0533a58be233695317d68b5a3.tar.gz |
* lisp/emacs-lisp/lisp.el (lisp-completion-at-point): Complete var names for
let-bindings.
Diffstat (limited to 'lisp/emacs-lisp/lisp.el')
-rw-r--r-- | lisp/emacs-lisp/lisp.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 11891679202..1350af1a563 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -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 |