From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 16 Oct 1997 18:07:23 +0000 (+0000)
Subject: (scheme-let-indent): New arg NORMAL-INDENT.
X-Git-Tag: emacs-20.3~3006
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61185f425d232ec8bd41a94312f31e312b1ded41;p=emacs.git

(scheme-let-indent): New arg NORMAL-INDENT.
(scheme-indent-function): Pass normal-indent as 3rd arg
when calling an indentation function.
---

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index c9f9b4cdb0c..0487db7de2b 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -356,7 +356,7 @@ if that value is non-nil and inserts the value of
 	       (lisp-indent-specform method state
 				     indent-point normal-indent))
 	      (method
-		(funcall method state indent-point)))))))
+		(funcall method state indent-point normal-indent)))))))
 
 
 ;;; Let is different in Scheme
@@ -378,11 +378,11 @@ if that value is non-nil and inserts the value of
 ;;      (scheme-indent-specform 2 state indent-point)
 ;;      (scheme-indent-specform 1 state indent-point)))
 
-(defun scheme-let-indent (state indent-point)
+(defun scheme-let-indent (state indent-point normal-indent)
   (skip-chars-forward " \t")
   (if (looking-at "[-a-zA-Z0-9+*/?!@$%^&_:~]")
-      (lisp-indent-specform 2 state indent-point (current-column))
-      (lisp-indent-specform 1 state indent-point (current-column))))
+      (lisp-indent-specform 2 state indent-point normal-indent)
+    (lisp-indent-specform 1 state indent-point normal-indent)))
 
 ;; (put 'begin 'scheme-indent-function 0), say, causes begin to be indented
 ;; like defun if the first form is placed on the next line, otherwise