From c98d51d7a6cce6d7d64c1893f5ece70ed83841f9 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 14 Jun 2010 20:29:14 +0200 Subject: Refactoring. --- 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 f84f90c..e7fb2f8 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -115,6 +115,9 @@ determine its scheme flavour." (setq geiser-active-implementations (delq impl geiser-active-implementations))) +(defsubst geiser-impl--active-p (impl) + (memq impl geiser-active-implementations)) + ;;; Defining implementations: -- cgit v1.2.3