X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/5565541255db68894a8dc1269c4ee6cec3287d8d..ae0a4068aa5fc6634862a03b19d4187fc30b5115:/company-tempo.el

diff --git a/company-tempo.el b/company-tempo.el
index aa3a97908..cba42c3e3 100644
--- a/company-tempo.el
+++ b/company-tempo.el
@@ -60,12 +60,11 @@
   "`company-mode' completion backend for tempo."
   (interactive (list 'interactive))
   (cl-case command
-    (interactive (company-begin-backend 'company-tempo
-                                        'company-tempo-insert))
+    (interactive (company-begin-backend 'company-tempo))
     (prefix (or (car (tempo-find-match-string tempo-match-finder)) ""))
     (candidates (all-completions arg (tempo-build-collection)))
     (meta (company-tempo-meta arg))
-    (post-completion (when company-tempo-expand (tempo-expand-if-complete)))
+    (post-completion (when company-tempo-expand (company-tempo-insert arg)))
     (sorted t)))
 
 (provide 'company-tempo)