procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
`lisp--local-variables-completion-table' in the `lisp--form-quoted-p'
case.
This commit is contained in:
Dmitry Gutov 2014-09-19 21:33:11 +04:00
parent 3907574bb8
commit a58c2690db
2 changed files with 10 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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