summaryrefslogtreecommitdiff
path: root/elisp
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
commit54ef9eae095606180a137bf2d2c11086625a7088 (patch)
treed7ee532534bf4ee2f13eb3d49d441f03d784ed17 /elisp
parentcee169c2de13d30f213b03578e70ca7c370e2684 (diff)
downloadgeiser-chez-54ef9eae095606180a137bf2d2c11086625a7088.tar.gz
geiser-chez-54ef9eae095606180a137bf2d2c11086625a7088.tar.bz2
Quicker metadata display in company mode.
Diffstat (limited to 'elisp')
-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)