summaryrefslogtreecommitdiff
path: root/elisp/geiser-company.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-25 15:30:51 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-25 15:30:51 +0200
commitb38d0243910b65d763576bcf662da4d33f64e324 (patch)
treef2152ed0b9d84c6687e2d54ef3cc6ed1bb6c8be0 /elisp/geiser-company.el
parent91841a63fb0cf3c8a0a6ed1e9086b72097cd44e4 (diff)
downloadgeiser-b38d0243910b65d763576bcf662da4d33f64e324.tar.gz
geiser-b38d0243910b65d763576bcf662da4d33f64e324.tar.bz2
Slightly better autodoc caching (probably needs an overhaul, though).
Diffstat (limited to 'elisp/geiser-company.el')
-rw-r--r--elisp/geiser-company.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/elisp/geiser-company.el b/elisp/geiser-company.el
index 8ae8969..ef4ce38 100644
--- a/elisp/geiser-company.el
+++ b/elisp/geiser-company.el
@@ -38,7 +38,7 @@
(ignore-errors
(if module
(format "%s [module]" id)
- (geiser-autodoc--autodoc (list (list (intern id) 0))))))
+ (geiser-autodoc--autodoc (list (list (intern id) 0)) t))))
(defsubst geiser-company--doc-buffer (id module)
nil)
@@ -61,11 +61,11 @@
(defun geiser-company--setup (enable)
(setq geiser-company--enabled-flag enable)
+ (when (boundp 'company-lighter)
+ (setq company-lighter "/C"))
(when (fboundp 'company-mode)
(company-mode nil)
- (when enable (company-mode enable)))
- (when (boundp 'company-lighter)
- (setq company-lighter "/C")))
+ (when enable (company-mode enable))))
(defun geiser-company--inhibit-autodoc (ignored)
(setq geiser-autodoc--inhibit-flag t))