summaryrefslogtreecommitdiff
path: root/elisp/geiser-company.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2011-01-24 23:30:03 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2011-01-24 23:30:03 +0100
commit89b89ec5a4bedf654517720010add2578dbffc16 (patch)
tree9e594e3cef31b24b517ed3b2ce1325ca1bac03e1 /elisp/geiser-company.el
parentbc18b4415820b82af4e53158f80e74b2225c27ef (diff)
downloadgeiser-guile-89b89ec5a4bedf654517720010add2578dbffc16.tar.gz
geiser-guile-89b89ec5a4bedf654517720010add2578dbffc16.tar.bz2
company-mode fixes (an attempt to fix #32231)
i hope the anonymous reporter will check this...
Diffstat (limited to 'elisp/geiser-company.el')
-rw-r--r--elisp/geiser-company.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/elisp/geiser-company.el b/elisp/geiser-company.el
index 8f7fca6..09290be 100644
--- a/elisp/geiser-company.el
+++ b/elisp/geiser-company.el
@@ -1,6 +1,6 @@
;; geiser-company.el -- integration with company-mode
-;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -91,11 +91,10 @@
(defun geiser-company--setup-company (enable)
(set (make-local-variable 'company-default-lighter) "/C")
(set (make-local-variable 'company-echo-delay) 0.01)
- (company-mode nil)
- (when enable (company-mode enable)))
+ (setq company-backends (list geiser-company--backend))
+ (company-mode (if enable 1 -1)))
(geiser-company--make-backend company-geiser-ids nil)
(geiser-company--make-backend company-geiser-modules t)
- (add-to-list 'company-backends geiser-company--backend)
(add-hook 'company-completion-finished-hook
'geiser-company--restore-autodoc)
(add-hook 'company-completion-cancelled-hook