This is the mail archive of the guile@cygnus.com mailing list for the guile project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Mark Galassi <rosalia@cygnus.com> writes: > That, together with better-looking font-lock-mode make emacs-20.2 very > attractive for Scheme use. I agree, but there is a bug with indenting the "let" form of Scheme. I already reported this and here is the patch against it: cd ~/e20/lisp/progmodes/ diff -c /home/rms/e20/lisp/progmodes/scheme.el.\~1\~ /home/rms/e20/lisp/progmodes/scheme.el *** /home/rms/e20/lisp/progmodes/scheme.el.~1~ Tue Jun 17 17:53:51 1997 --- /home/rms/e20/lisp/progmodes/scheme.el Sun Oct 5 20:53:58 1997 *************** *** 356,362 **** (lisp-indent-specform method state indent-point normal-indent)) (method ! (funcall method state indent-point))))))) ;;; Let is different in Scheme --- 356,362 ---- (lisp-indent-specform method state indent-point normal-indent)) (method ! (funcall method state indent-point normal-indent))))))) ;;; Let is different in Scheme *************** *** 378,388 **** ;; (scheme-indent-specform 2 state indent-point) ;; (scheme-indent-specform 1 state indent-point))) ! (defun scheme-let-indent (state indent-point) (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)))) ;; (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 --- 378,388 ---- ;; (scheme-indent-specform 2 state indent-point) ;; (scheme-indent-specform 1 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 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 Diff finished at Sun Oct 5 20:54:35