From 443b3399a1efbea581694e856b67095e9dbaad51 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 12 Oct 2010 00:28:00 +0200 Subject: Menus: callers/callees active only if available --- elisp/geiser-eval.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'elisp/geiser-eval.el') 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" -- cgit v1.2.3