bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: npostavs
Subject: bug#10968: 24.0.94; loop indentation with `C-M-q' broken
Date: Sat, 01 Apr 2017 21:15:30 -0400
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux)

retitle 10968 common-lisp-indent-function, `C-M-q' on multiline `loop' broken
found 10968 25.2
tags 10968 fixed
close 10968 26.1
quit

Thierry Volpiatto <address@hidden> writes:

> Glenn Morris <address@hidden> 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:
>
> (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))

With current master I get

(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))

I believe this is correct.





reply via email to

[Prev in Thread] Current Thread [Next in Thread]