diff options
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-impl.el | 4 | ||||
| -rw-r--r-- | elisp/geiser.el | 7 |
2 files changed, 10 insertions, 1 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: diff --git a/elisp/geiser.el b/elisp/geiser.el index ce1a0d5..a1a5549 100644 --- a/elisp/geiser.el +++ b/elisp/geiser.el @@ -105,7 +105,12 @@ (autoload 'geiser-mode--maybe-activate "geiser-mode") ;;;###autoload -(autoload 'geiser-activate-implementation "geiser-impl") +(autoload 'geiser-activate-implementation "geiser-impl" + "Register the given implementation as active.") + +;;;###autoload +(autoload 'geiser-implementation-extension "geiser-impl" + "Register a file extension as handled by a given implementation.") ;;;###autoload (mapc (lambda (group) |