bug#26187: Bug in indent-sexp

[npostavs]

tags 26187 patch
quit

Gdobbins <gdobbins@protonmail.com> writes:

> Sure. In the form:
> 
> (defun lisp-indent-defform (state _indent-point)
>   (goto-char (car (cdr state)))
>   (forward-line 1)
>   (if (> (point) (car (cdr (cdr state))))|
>       (progn
>         (goto-char (car (cdr state)))
>         (+ lisp-body-indent (current-column)))))
> 
> where | is point, call indent-sexp and the result will be
> 
> (defun lisp-indent-defform (state _indent-point)
>   (goto-char (car (cdr state)))
>   (forward-line 1)
>   (if (> (point) (car (cdr (cdr state))))|
> (progn
>   (goto-char (car (cdr state)))
>   (+ lisp-body-indent (current-column)))))
> 
> which is incorrect.

Hmm, the original behaviour is that no indentation happens at all which
seems kind of odd to me.  But that's better than breaking things I
guess.  Have you done copyright assignment for Emacs, or should I mark
your patch as a tiny change?