From 5e9892d0cfbd25448ee106a8304b5b1ed528c121 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 20 Jun 2009 09:56:59 +0200
Subject: Auxiliary function.

---
 elisp/geiser-impl.el | 3 +++
 1 file changed, 3 insertions(+)

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