[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master aabf0a3 5/8: Fix the exit-function fix
From: |
Dmitry Gutov |
Subject: |
[elpa] master aabf0a3 5/8: Fix the exit-function fix |
Date: |
Wed, 12 Dec 2018 17:46:41 -0500 (EST) |
branch: master
commit aabf0a35df3d1507b9341bdf7a5afa3ee9f18c17
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Fix the exit-function fix
#845
https://github.com/company-mode/company-mode/commit/526aa5b3cffb93e07313ace7a3902be19f46eddf#r31656876
---
company-capf.el | 4 +---
company.el | 8 +++++++-
2 files changed, 8 insertions(+), 4 deletions(-)
diff --git a/company-capf.el b/company-capf.el
index 311dd24..64b3de9 100644
--- a/company-capf.el
+++ b/company-capf.el
@@ -77,9 +77,7 @@ that accompanied the completion table that's currently is
use.")
(defun company-capf--save-current-data (data)
(setq company-capf--current-completion-data data)
- (add-hook 'company-completion-cancelled-hook
- #'company-capf--clear-current-data nil t)
- (add-hook 'company-completion-finished-hook
+ (add-hook 'company-after-completion-hook
#'company-capf--clear-current-data nil t))
(defun company-capf--clear-current-data (_ignored)
diff --git a/company.el b/company.el
index 5676583..b86574c 100644
--- a/company.el
+++ b/company.el
@@ -511,6 +511,11 @@ If you indend to use it to post-process candidates from a
specific
backend, consider using the `post-completion' command instead."
:type 'hook)
+(defcustom company-after-completion-hook nil
+ "Hook run at the end of completion, successful or not.
+The hook is called with one argument which is either a string or a symbol."
+ :type 'hook)
+
(defcustom company-minimum-prefix-length 3
"The minimum prefix length for idle completion."
:type '(integer :tag "prefix length"))
@@ -1637,7 +1642,8 @@ prefix match (same case) will be prioritized."
(let ((company-backend backend))
(run-hook-with-args 'company-completion-finished-hook result)
(company-call-backend 'post-completion result))
- (run-hook-with-args 'company-completion-cancelled-hook result))))
+ (run-hook-with-args 'company-completion-cancelled-hook result))
+ (run-hook-with-args 'company-after-completion-hook result)))
;; Make return value explicit.
nil)
- [elpa] master updated (a61b7e3 -> d461e05), Dmitry Gutov, 2018/12/12
- [elpa] master 388eec5 1/8: Bind inhibit-quit to nil inside an idle timer, Dmitry Gutov, 2018/12/12
- [elpa] master b4a8690 3/8: Reindent, Dmitry Gutov, 2018/12/12
- [elpa] master 8407ff3 6/8: Add the new entries, Dmitry Gutov, 2018/12/12
- [elpa] master d461e05 8/8: Merge commit 'ac82e875e144b227e926c09c53def9b0c059115c' from company, Dmitry Gutov, 2018/12/12
- [elpa] master ac82e87 7/8: Release 0.9.9, Dmitry Gutov, 2018/12/12
- [elpa] master aabf0a3 5/8: Fix the exit-function fix,
Dmitry Gutov <=
- [elpa] master c18bd7e 2/8: #845 Make a longer NEWS entry, Dmitry Gutov, 2018/12/12
- [elpa] master d00bbba 4/8: company-clang: Skip over identity preprocessor #defines, Dmitry Gutov, 2018/12/12