From 5e9892d0cfbd25448ee106a8304b5b1ed528c121 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 20 Jun 2009 09:56:59 +0200 Subject: Auxiliary function. --- elisp/geiser-impl.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'elisp/geiser-impl.el') diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index 4239f1e..cb5daa8 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -71,6 +71,9 @@ determine its scheme flavour." (setq geiser-impl--impls (remove impl geiser-impl--impls)) (ignore-errors (unload-feature (geiser-impl--impl-feature impl)))) +(defun geiser-impl--add-to-alist (kind what impl) + (add-to-list 'geiser-impl-implementations-alist (list (list kind what) impl))) + (defvar geiser-impl--default-implementation geiser-impl-default-implementation) -- cgit v1.2.3