bug#10968: 24.0.94; loop indentation with `C-M-q' broken

[Thierry Volpiatto]

Glenn Morris <rgm@gnu.org> writes:

> Thierry Volpiatto wrote:
>
>> It seem indenting a CL loop with `C-M-q' (indent-pp-sexp)
>> doesn't work anymore unless the loop close is <= two lines.
>
> Please give an example.
(require 'cl)
(setq lisp-indent-function 'common-lisp-indent-function)

Use C-M-q on following sexp:

--8<---------------cut here---------------start------------->8---
(loop with cont = (make-hash-table :test test)
      for elm in seq
unless (gethash elm cont)
do (puthash elm elm cont)
finally return
(loop for i being the hash-values in cont collect i))
--8<---------------cut here---------------end--------------->8---

-- 
  Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997