diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-14 12:42:09 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-14 12:42:09 +0100 |
| commit | 660fc8e0465e48812fc6f38f82d91d22b0664118 (patch) | |
| tree | 74a7cb882cf4d2b5ed13dd35a553202c5136ba1a /elisp/geiser-impl.el | |
| parent | 137d2e0db5efe444f6f208aba8ebd57584f1ee52 (diff) | |
| download | geiser-guile-660fc8e0465e48812fc6f38f82d91d22b0664118.tar.gz geiser-guile-660fc8e0465e48812fc6f38f82d91d22b0664118.tar.bz2 | |
Show implementation in geiser-mode's modeline.
Diffstat (limited to 'elisp/geiser-impl.el')
| -rw-r--r-- | elisp/geiser-impl.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index 4f70b29..20b648e 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -60,6 +60,10 @@ geiser-impl-default-implementation (car geiser-impl--impls))) +(defsubst geiser-impl--impl-str (&optional impl) + (let ((impl (or impl geiser-impl--implementation))) + (and impl (capitalize (format "%s" impl))))) + ;;; Installing Scheme implementations: @@ -78,7 +82,6 @@ (geiser-impl--install-eval impl) (geiser-impl--register impl))) - (defsubst geiser-impl--sym (imp name) (intern (format "geiser-%s-%s" imp name))) @@ -104,7 +107,7 @@ (geiser-impl--sym impl "get-module")) (defsubst geiser-impl--geiser-procedure-function (impl) - (geiser-impl--sym imp "geiser-procedure")) + (geiser-impl--sym impl "geiser-procedure")) (defun geiser-impl--install-eval (impl) (setq geiser-eval--get-module-function (geiser-impl--module-function impl)) |