diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-10-12 00:28:00 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-10-12 00:28:00 +0200 |
| commit | 443b3399a1efbea581694e856b67095e9dbaad51 (patch) | |
| tree | 99be66c038fb11b5b74887c60c0188b454e37847 /elisp/geiser-eval.el | |
| parent | 4322100bb18d2b00f409730dcd3985e56f8d4124 (diff) | |
| download | geiser-guile-443b3399a1efbea581694e856b67095e9dbaad51.tar.gz geiser-guile-443b3399a1efbea581694e856b67095e9dbaad51.tar.bz2 | |
Menus: callers/callees active only if available
Diffstat (limited to 'elisp/geiser-eval.el')
| -rw-r--r-- | elisp/geiser-eval.el | 3 |
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" |