GNU bug report logs - #26187
Bug in indent-sexp

Previous Next

Full log

Message #11 received at 26187 <at> debbugs.gnu.org (full text, mbox):

From: Gdobbins <gdobbins <at> protonmail.com>
To: npostavs <at> users.sourceforge.net
Cc: 26187 <at> debbugs.gnu.org
Subject: Re: bug#26187: Bug in indent-sexp
Date: Mon, 20 Mar 2017 16:00:49 -0400

[Message part 1 (text/plain, inline)]

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.

-- Graham Dobbins

[Message part 2 (text/html, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.