mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
* 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
|
|
@ -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).
|
||||
|
||||
|
|
|
|||
|
|
@ -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