From 176afa86ec0da835c6dc60fa80495a1bc96f5db7 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 10 Jun 2009 21:08:34 +0200
Subject: Share scheme-indent-function tweaks across implementations.

---
 elisp/geiser-plt.el | 44 --------------------------------------------
 1 file changed, 44 deletions(-)

(limited to 'elisp/geiser-plt.el')

diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el
index e60a576..44312b9 100644
--- a/elisp/geiser-plt.el
+++ b/elisp/geiser-plt.el
@@ -137,50 +137,6 @@ This function uses `geiser-plt-init-file' if it exists."
       (geiser-plt--explicit-module)
       (string-equal (file-name-extension (buffer-file-name)) "ss")))
 
-
-;;; Emacs tweaks for PLT scheme code:
-
-(geiser--scheme-indent
- (begin0 1)
- (c-declare 0)
- (c-lambda 2)
- (case-lambda 0)
- (catch 1)
- (class defun)
- (class* defun)
- (compound-unit/sig 0)
- (dynamic-wind 0)
- (for/fold 2)
- (instantiate 2)
- (interface 1)
- (lambda/kw 1)
- (let*-values 1)
- (let+ 1)
- (let-values 1)
- (let/ec 1)
- (match defun)
- (mixin 2)
- (module defun)
- (opt-lambda 1)
- (parameterize 1)
- (parameterize-break 1)
- (parameterize* 1)
- (quasisyntax/loc 1)
- (receive 2)
- (send* 1)
- (sigaction 1)
- (syntax-case 2)
- (syntax/loc 1)
- (type-case defun)
- (unit defun)
- (unit/sig 2)
- (unless 1)
- (when 1)
- (while 1)
- (with-handlers 1)
- (with-method 1)
- (with-syntax 1))
-
 
 (provide 'geiser-plt)
 ;;; geiser-plt.el ends here
-- 
cgit v1.2.3