[Emacs-diffs] trunk r114694: * lisp/emacs-lisp/lisp.el (lisp-completion-at-point): Complete var names for

[Stefan Monnier]

------------------------------------------------------------
revno: 114694
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2013-10-17 00:49:42 -0400
message:
  * lisp/emacs-lisp/lisp.el (lisp-completion-at-point): Complete var names for
  let-bindings.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/lisp.el        lisp.el-20091113204419-o5vbwnq5f7feedwu-131

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-17 03:56:51 +0000
+++ b/lisp/ChangeLog    2013-10-17 04:49:42 +0000
@@ -1,5 +1,8 @@
 2013-10-17  Stefan Monnier  <address@hidden>
 
+       * 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).
 

=== modified file 'lisp/emacs-lisp/lisp.el'
--- a/lisp/emacs-lisp/lisp.el   2013-08-29 19:18:16 +0000
+++ b/lisp/emacs-lisp/lisp.el   2013-10-17 04:49:42 +0000
@@ -867,6 +867,17 @@
                                      (< (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