summaryrefslogtreecommitdiff
path: root/elisp/geiser-eval.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-10-12 00:28:00 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-10-12 00:28:00 +0200
commitec03576e168be91d74ef38f15ceccddf2aa8c891 (patch)
tree0792443c4f3d8fe5fc47faf220bfe2c97066eb64 /elisp/geiser-eval.el
parent11bde7b13d2152d3d5ee6d70bee1b8743528b89d (diff)
downloadgeiser-ec03576e168be91d74ef38f15ceccddf2aa8c891.tar.gz
geiser-ec03576e168be91d74ef38f15ceccddf2aa8c891.tar.bz2
Menus: callers/callees active only if available
Diffstat (limited to 'elisp/geiser-eval.el')
-rw-r--r--elisp/geiser-eval.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el
index b37b7ed..fd769db 100644
--- a/elisp/geiser-eval.el
+++ b/elisp/geiser-eval.el
@@ -52,6 +52,9 @@ include macroexpand, completions, module-completions, find-file,
symbol-location, module-location, symbol-documentation,
module-exports, autodoc, callers, callees and generic-methods.")
+(defun geiser-eval--supported-p (feat)
+ (not (memq feat geiser-eval--unsupported)))
+
(defsubst geiser-eval--form (proc)
(when (and geiser-eval--unsupported (memq proc geiser-eval--unsupported))
(error "Sorry, the %s scheme implementation does not support Geiser's %s"