diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-24 16:03:35 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-09-24 16:03:35 +0200 |
| commit | d80c42a067f4eb70c9a4bc159a82912c76a99e74 (patch) | |
| tree | 1aed82507e2bc2c0acc15165cacb3d2fcfb7bb57 | |
| parent | ee5b403d2d99ed6722063040a5328cf351b20144 (diff) | |
| download | geiser-chez-d80c42a067f4eb70c9a4bc159a82912c76a99e74.tar.gz geiser-chez-d80c42a067f4eb70c9a4bc159a82912c76a99e74.tar.bz2 | |
Assignment of ss files to plt as a customization.
| -rw-r--r-- | elisp/geiser-impl.el | 2 | ||||
| -rw-r--r-- | elisp/geiser-plt.el | 3 |
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: |