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

let-bindings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bbff921661d584ee2eb9800cb095202007a66e6b..6f8636c8bd83b9ae64f5eb43622851858e7e133c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-10-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/lisp.el (lisp-completion-at-point): Complete var names for
+       let-bindings.
+
        * progmodes/sh-script.el (sh-find-prev-matching): Disable SMIE's
        forward-sexp-function while we redo its job (bug#15613).
 

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 118916792022ca3d247a2feef41774ef9780f9bf..1350af1a5632552be1a6c44afc56f048c6017dea 100644 (file)
--- 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