From 37fa240e6d3a1ecfce4fbbe61e4c096793e1d216 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 26 Sep 2009 04:25:13 +0200 Subject: Letting implementations define their own file pattern matching rules. --- elisp/geiser-plt.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'elisp/geiser-plt.el') diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el index 00e3590..893b97a 100644 --- a/elisp/geiser-plt.el +++ b/elisp/geiser-plt.el @@ -175,6 +175,9 @@ This function uses `geiser-plt-init-file' if it exists." (display-help geiser-plt-external-help) (check-buffer geiser-plt-guess)) +(geiser-impl--add-to-alist 'regexp "\\.mzscheme\\.sl?s$" 'plt t) +(geiser-impl--add-to-alist 'regexp "\\.ss$" 'plt t) + (provide 'geiser-plt) ;;; geiser-plt.el ends here -- cgit v1.2.3