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
@@ -494,6 +494,12 @@ indentation."
                         (> (length function) 3)
                         (string-match "\\`def" function)))
                (lisp-indent-defform state indent-point))
+              ((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)))
               ((integerp method)
                (lisp-indent-specform method state
                                      indent-point normal-indent))
 href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=147499a469fbf56d52ea45ef1193df3eaa328bb5'>refs</a><a class='active' href='/guix/log/gnu/tests/rsync.scm'>log</a><a href='/guix/tree/gnu/tests/rsync.scm?id=147499a469fbf56d52ea45ef1193df3eaa328bb5'>tree</a><a href='/guix/commit/gnu/tests/rsync.scm?id=147499a469fbf56d52ea45ef1193df3eaa328bb5'>commit</a><a href='/guix/diff/gnu/tests/rsync.scm?id=147499a469fbf56d52ea45ef1193df3eaa328bb5'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/tests/rsync.scm'>
<input type='hidden' name='id' value='147499a469fbf56d52ea45ef1193df3eaa328bb5'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=147499a469fbf56d52ea45ef1193df3eaa328bb5'>root</a>/<a href='/guix/log/gnu?id=147499a469fbf56d52ea45ef1193df3eaa328bb5'>gnu</a>/<a href='/guix/log/gnu/tests?id=147499a469fbf56d52ea45ef1193df3eaa328bb5'>tests</a>/<a href='/guix/log/gnu/tests/rsync.scm?id=147499a469fbf56d52ea45ef1193df3eaa328bb5'>rsync.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/tests/rsync.scm?id=147499a469fbf56d52ea45ef1193df3eaa328bb5&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-03-16 14:05:52 +0100'>2020-03-16</span></td><td><a href='/guix/commit/gnu/tests/rsync.scm?id=4df02ab675b262bc2d43f83ad33785eb434ea6cb'>tests: rsync: Set PATH.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to 8b9cad01e9619f53dc5a65892ca6a09ca5de3447, which
would leave PATH unset.

* gnu/tests/rsync.scm (run-rsync-test)[test]("service running"): Add
call to 'setenv' for PATH.
</span></span></td><td>Ludovic Courtès</td></tr>