diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-08-26 15:13:42 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-08-26 15:13:42 +0200 |
| commit | 54ef9eae095606180a137bf2d2c11086625a7088 (patch) | |
| tree | d7ee532534bf4ee2f13eb3d49d441f03d784ed17 | |
| parent | cee169c2de13d30f213b03578e70ca7c370e2684 (diff) | |
| download | geiser-guile-54ef9eae095606180a137bf2d2c11086625a7088.tar.gz geiser-guile-54ef9eae095606180a137bf2d2c11086625a7088.tar.bz2 | |
Quicker metadata display in company mode.
| -rw-r--r-- | elisp/geiser-company.el | 12 |
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) |