From e8492f444d2532b48b6a17a4dec8dbc16d963563 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 24 Jan 2011 23:30:03 +0100 Subject: company-mode fixes (an attempt to fix #32231) i hope the anonymous reporter will check this... --- elisp/geiser-company.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'elisp/geiser-company.el') 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 -- cgit v1.2.3