bug#81565: M-q eats too much whitespace

[ My apologies for re-sending; I hope this message makes its way to
  Emacs bug tracker ]

Stefan Monnier <[email protected]> writes:

>> I agree. Stefan, we'd like to hear what you think about this issue.
>> I think `canonically-space-region` should pay more attention to the
>> calculation of the amount of the spaces to leave.
>
> I agree that it's a clear bug that remove all spaces in `}   Test`.
> My patch was meant only for the `\n    Test` case shown by Arash.

Thanks for your response, I've reassigned this to Emacs.  A simple
reproducer is to enter this in scratch after 'emacs -Q':

--8<---------------cut here---------------start------------->8---
(foo
)          bar

(foo
 ) baz
--8<---------------cut here---------------end--------------->8---

and then mark the forms and do:

  M-x canonically-space-region RET

giving this:

--8<---------------cut here---------------start------------->8---
(foo
 )bar

(foo
 ) baz
--8<---------------cut here---------------end--------------->8---

The expected result would have been:

--8<---------------cut here---------------start------------->8---
(foo
 ) bar

(foo
 ) baz
--8<---------------cut here---------------end--------------->8---

Best, Arash