summaryrefslogtreecommitdiff
path: root/elisp/geiser-impl.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-impl.el')
-rw-r--r--elisp/geiser-impl.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index babe617..b67c6bf 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -239,6 +239,10 @@ switcher (switch-to-NAME), and provides geiser-NAME."
(add-to-list 'geiser-implementations-alist
(list (list kind what) impl) append))
+(defun geiser-implementation-extension (impl ext)
+ "Add to `geiser-implementations-alist' an entry for extension EXT."
+ (geiser-impl--add-to-alist 'regexp (format "\\.%s$" ext) impl t))
+
;;; Trying to guess the scheme implementation: