summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-09-24 16:03:35 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-09-24 16:03:35 +0200
commitbd129f521108d4cebf8553e26f231bc64ee9d6a5 (patch)
tree2f271d2089e159e584585e3b1ce4ba935f2f257e /elisp
parentee5207a82722b0ac9d78db007bc13a6958f7930b (diff)
downloadgeiser-bd129f521108d4cebf8553e26f231bc64ee9d6a5.tar.gz
geiser-bd129f521108d4cebf8553e26f231bc64ee9d6a5.tar.bz2
Assignment of ss files to plt as a customization.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-impl.el2
-rw-r--r--elisp/geiser-plt.el3
2 files changed, 2 insertions, 3 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index c430317..f278477 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -31,7 +31,7 @@
:type '(repeat symbol)
:group 'geiser-implementation)
-(geiser-custom--defcustom geiser-implementations-alist nil
+(geiser-custom--defcustom geiser-implementations-alist '(((regexp "\\.ss$") plt))
"A map from regular expressions or directories to implementations.
When opening a new file, its full path will be matched against
each one of the regular expressions or directories in this map in order to
diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el
index aadca41..63eb53f 100644
--- a/elisp/geiser-plt.el
+++ b/elisp/geiser-plt.el
@@ -157,8 +157,7 @@ This function uses `geiser-plt-init-file' if it exists."
(or (save-excursion
(goto-char (point-min))
(re-search-forward "#lang " nil t))
- (geiser-plt--explicit-module)
- (string-equal (file-name-extension (or (buffer-file-name) "")) "ss")))
+ (geiser-plt--explicit-module)))
;;; Implementation definition: