summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-26 15:13:42 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-26 15:13:42 +0200
commitd33d6d6973005f9f148a09f4a59aaa72eca96de6 (patch)
treef2e9da0a76bab4b251758732266f220b276e0cfe
parente7cdf10b94d7f5e66a5b3a6e7e65439ef35f874f (diff)
downloadgeiser-d33d6d6973005f9f148a09f4a59aaa72eca96de6.tar.gz
geiser-d33d6d6973005f9f148a09f4a59aaa72eca96de6.tar.bz2
Quicker metadata display in company mode.
-rw-r--r--elisp/geiser-company.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/elisp/geiser-company.el b/elisp/geiser-company.el
index 2fb89f4..37c2196 100644
--- a/elisp/geiser-company.el
+++ b/elisp/geiser-company.el
@@ -67,11 +67,8 @@
(defun geiser-company--setup (enable)
(setq geiser-company--enabled-flag enable)
- (when (boundp 'company-default-lighter)
- (set (make-local-variable 'company-default-lighter) "/C"))
- (when (fboundp 'company-mode)
- (company-mode nil)
- (when enable (company-mode enable))))
+ (when (fboundp 'geiser-company--setup-company)
+ (geiser-company--setup-company enable)))
(defun geiser-company--inhibit-autodoc (ignored)
(when (setq geiser-company--autodoc-flag geiser-autodoc-mode)
@@ -100,6 +97,11 @@
(eval-after-load "company"
'(progn
+ (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)))
(geiser-company--make-backend company-geiser-ids nil)
(geiser-company--make-backend company-geiser-modules t)
(add-to-list 'company-backends geiser-company--backend)