From: Dmitry Gutov <dgutov@yandex.ru>
Date: Fri, 19 Sep 2014 17:33:11 +0000 (+0400)
Subject: * lisp/emacs-lisp/lisp.el (lisp-completion-at-point): Don't use
X-Git-Tag: emacs-25.0.90~2635^2~679^2~265
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a58c2690db26d69112d97122c6eb91d8906f7476;p=emacs.git

* lisp/emacs-lisp/lisp.el (lisp-completion-at-point): Don't use
`lisp--local-variables-completion-table' in the `lisp--form-quoted-p'
case.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 997071f2dc8..5725aa924d7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index a8bad47a90a..7e5f47b80b7 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -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