Mercurial > emacs
changeset 20067:694a165b5b0d
(scheme-let-indent): New arg NORMAL-INDENT.
(scheme-indent-function): Pass normal-indent as 3rd arg
when calling an indentation function.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 16 Oct 1997 18:07:23 +0000 |
| parents | affc9c857428 |
| children | 9c4fd611c3ec |
| files | lisp/progmodes/scheme.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/scheme.el Thu Oct 16 00:07:02 1997 +0000 +++ b/lisp/progmodes/scheme.el Thu Oct 16 18:07:23 1997 +0000 @@ -356,7 +356,7 @@ (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 @@ ;; (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