[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#26187: Bug in indent-sexp
|
From: |
Gdobbins |
|
Subject: |
bug#26187: Bug in indent-sexp |
|
Date: |
Mon, 20 Mar 2017 16:00:49 -0400 |
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