2016-05-26 04:45:16 -04:00
|
|
|
Fix 'scheme-indent-function' to indent s-expressions starting with a keyword
|
|
|
|
properly, like this:
|
|
|
|
|
|
|
|
(#:foo 1
|
|
|
|
#:bar 2)
|
|
|
|
|
|
|
|
instead of like this:
|
|
|
|
|
|
|
|
(#:foo 1
|
|
|
|
#:bar 2)
|
|
|
|
|
|
|
|
The fix is made by Mark H Weaver <mhw@netris.org>:
|
|
|
|
<http://www.netris.org/~mhw/scheme-indent-function.el>
|
|
|
|
|
|
|
|
--- a/lisp/progmodes/scheme.el
|
|
|
|
+++ b/lisp/progmodes/scheme.el
|
2018-05-28 12:23:07 -04:00
|
|
|
@@ -494,6 +494,12 @@ indentation."
|
|
|
|
(> (length function) 3)
|
|
|
|
(string-match "\\`def" function)))
|
|
|
|
(lisp-indent-defform state indent-point))
|
2016-05-26 04:45:16 -04:00
|
|
|
+ ((and (null method)
|
|
|
|
+ (> (length function) 1)
|
|
|
|
+ ;; The '#' in '#:' seems to get lost, not sure why
|
|
|
|
+ (string-match "\\`:" function))
|
|
|
|
+ (let ((lisp-body-indent 1))
|
|
|
|
+ (lisp-indent-defform state indent-point)))
|
2018-05-28 12:23:07 -04:00
|
|
|
((integerp method)
|
|
|
|
(lisp-indent-specform method state
|
|
|
|
indent-point normal-indent))
|