Added 'pre-completion and 'post-completion back-end commands.

diff --git a/company.el b/company.el
index 8bdba31b02562718be895255acd3a221fe06264b..eddd4cbf879940ffa8eaebe719b51797581b49fe 100644 (file)
--- a/company.el
+++ b/company.el
@@ -1055,7 +1055,10 @@ can retrieve meta-data for them."
        (set-buffer-modified-p nil))
   (when company-prefix
     (if (stringp result)
        (set-buffer-modified-p nil))
   (when company-prefix
     (if (stringp result)

-        (run-hook-with-args 'company-completion-finished-hook result)
+        (progn
+          (company-call-backend 'pre-completion result)
+          (run-hook-with-args 'company-completion-finished-hook result)
+          (company-call-backend 'post-completion result))

       (run-hook-with-args 'company-completion-cancelled-hook result)))
   (setq company-added-newline nil
         company-backend nil
       (run-hook-with-args 'company-completion-cancelled-hook result)))
   (setq company-added-newline nil
         company-backend nil