diff options
| author | jao <jao@gnu.org> | 2021-04-16 16:44:46 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-04-16 16:44:46 +0100 |
| commit | 30efb277f68a645db3f25022f856ddf0a768f476 (patch) | |
| tree | a28a6ad9cff771d20da483abffe19440c55a8e15 /elisp/geiser-impl.el | |
| parent | c5a9aae4d30ea6dbf2d8af4dd1cc35a839686a00 (diff) | |
| download | geiser-30efb277f68a645db3f25022f856ddf0a768f476.tar.gz geiser-30efb277f68a645db3f25022f856ddf0a768f476.tar.bz2 | |
New public api for registering file extensions
Diffstat (limited to 'elisp/geiser-impl.el')
| -rw-r--r-- | elisp/geiser-impl.el | 4 |
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: |