mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2013-10-17 Stefan Monnier <monnier@iro.umontreal.ca> 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 * progmodes/sh-script.el (sh-find-prev-matching): Disable SMIE's
forward-sexp-function while we redo its job (bug#15613). forward-sexp-function while we redo its job (bug#15613).

11
lisp/emacs-lisp/lisp.el
View file

@ -867,6 +867,17 @@ considered."
(< (point) beg))))) (< (point) beg)))))
(list t obarray (list t obarray
:predicate (lambda (sym) (get sym 'error-conditions)))) :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 (_ (list nil obarray
:predicate #'fboundp :predicate #'fboundp
:company-doc-buffer #'lisp--company-doc-buffer :company-doc-buffer #'lisp--company-doc-buffer