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 | d33d6d6973005f9f148a09f4a59aaa72eca96de6 (patch) | |
| tree | f2e9da0a76bab4b251758732266f220b276e0cfe | |
| parent | e7cdf10b94d7f5e66a5b3a6e7e65439ef35f874f (diff) | |
| download | geiser-d33d6d6973005f9f148a09f4a59aaa72eca96de6.tar.gz geiser-d33d6d6973005f9f148a09f4a59aaa72eca96de6.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) |