[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 2a21bfd 01/66: Extract company--capf-post-completion, for
From: |
Dmitry Gutov |
Subject: |
[elpa] master 2a21bfd 01/66: Extract company--capf-post-completion, for easier debugging |
Date: |
Mon, 5 Nov 2018 18:19:11 -0500 (EST) |
branch: master
commit 2a21bfd4422c74c817062eb935088376ac3d09dc
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Extract company--capf-post-completion, for easier debugging
---
company-capf.el | 21 ++++++++++++---------
1 file changed, 12 insertions(+), 9 deletions(-)
diff --git a/company-capf.el b/company-capf.el
index 06384c7..ffd9ea3 100644
--- a/company-capf.el
+++ b/company-capf.el
@@ -154,17 +154,20 @@
(plist-get (nthcdr 4 (company--capf-data)) :company-require-match))
(`init nil) ;Don't bother: plenty of other ways to initialize the
code.
(`post-completion
- (let* ((res (company--capf-data))
- (exit-function (plist-get (nthcdr 4 res) :exit-function))
- (table (nth 3 res))
- (pred (plist-get (nthcdr 4 res) :predicate)))
- (if exit-function
- ;; Follow the example of `completion--done'.
- (funcall exit-function arg
- (if (eq (try-completion arg table pred) t)
- 'finished 'sole)))))
+ (company--capf-post-completion arg))
))
+(defun company--capf-post-completion (arg)
+ (let* ((res (company--capf-data))
+ (exit-function (plist-get (nthcdr 4 res) :exit-function))
+ (table (nth 3 res))
+ (pred (plist-get (nthcdr 4 res) :predicate)))
+ (if exit-function
+ ;; Follow the example of `completion--done'.
+ (funcall exit-function arg
+ (if (eq (try-completion arg table pred) t)
+ 'finished 'sole)))))
+
(provide 'company-capf)
;;; company-capf.el ends here
- [elpa] master updated (ff13541 -> 1e22493), Dmitry Gutov, 2018/11/05
- [elpa] master 4a4152b 02/66: Add a FIXME, Dmitry Gutov, 2018/11/05
- [elpa] master e72dfad 03/66: copyright-update, Dmitry Gutov, 2018/11/05
- [elpa] master 2a21bfd 01/66: Extract company--capf-post-completion, for easier debugging,
Dmitry Gutov <=
- [elpa] master 0dc6945 08/66: Fix the build, Dmitry Gutov, 2018/11/05
- [elpa] master fc81e99 04/66: Deprecate company-css, Dmitry Gutov, 2018/11/05
- [elpa] master 1646a10 16/66: Always get candidates with prefix string in `company-diag`., Dmitry Gutov, 2018/11/05
- [elpa] master 07c56b1 12/66: Add NEWS entry, Dmitry Gutov, 2018/11/05
- [elpa] master 0afe18d 09/66: Allow CMake completion in strings when inside ${...}, Dmitry Gutov, 2018/11/05
- [elpa] master 67650de 17/66: Merge pull request #769 from tigersoldier/master, Dmitry Gutov, 2018/11/05
- [elpa] master 23e6c82 07/66: Add NEWS entry, Dmitry Gutov, 2018/11/05
- [elpa] master 5c2425b 06/66: Work around python-shell-completion-at-point's behavior, Dmitry Gutov, 2018/11/05
- [elpa] master a64d52c 05/66: Deprecate company-nxml too, Dmitry Gutov, 2018/11/05
- [elpa] master 5698be9 10/66: Simplify company-cmake-prefix-dollar-brace-p, Dmitry Gutov, 2018/11/05