Commit a58c2690 authored by Dmitry Gutov's avatar Dmitry Gutov

* lisp/emacs-lisp/lisp.el (lisp-completion-at-point): Don't use

`lisp--local-variables-completion-table' in the `lisp--form-quoted-p'
case.
parent 3907574b
......@@ -5,6 +5,9 @@
(lisp-completion-at-point): Move `end' back if it's after quote.
If in comment or string, only complete when after backquote.
(Bug#18265)
(lisp-completion-at-point): Don't use
`lisp--local-variables-completion-table' in the
`lisp--form-quoted-p' case.
2014-09-19 Dmitry Gutov <dgutov@yandex.ru>
......
......@@ -979,18 +979,13 @@ It can be quoted, or be inside a quoted form."
:company-docsig #'lisp--company-doc-string
:company-location #'lisp--company-location))
((lisp--form-quoted-p beg)
(list nil (completion-table-merge
;; FIXME: Is this table useful for this case?
lisp--local-variables-completion-table
(apply-partially #'completion-table-with-predicate
obarray
;; Don't include all symbols
;; (bug#16646).
(lambda (sym)
(or (boundp sym)
(fboundp sym)
(symbol-plist sym)))
'strict))
(list nil obarray
;; Don't include all symbols
;; (bug#16646).
:predicate (lambda (sym)
(or (boundp sym)
(fboundp sym)
(symbol-plist sym)))
:annotation-function
(lambda (str) (if (fboundp (intern-soft str)) " <f>"))
:company-doc-buffer #'lisp--company-doc-buffer
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment