+ ")); Comment")
+ ;; Check what happens when point is not at the indentation, or
+ ;; indentation is not correct, or both
+ (beginning-of-line) ; Point not at indentation
+ ;; Should simply move point to indentation and not change buffer
+ (lisp-indent-adjust-parens)
+ (apt-check-buffer (concat ";;\n"
+ "(let ((x 10) (y (some-func 20))\n"
+ " ")
+ ")); Comment")
+
+ (delete-backward-char 3) ; Incorrect indentation
+ ;; Should reindent line via indent-for-tab-command and move point to
+ ;; indentation but not change parens
+ (lisp-indent-adjust-parens)
+ (apt-check-buffer (concat ";;\n"
+ "(let ((x 10) (y (some-func 20))\n"
+ " ")
+ ")); Comment")
+ (insert " ") ; Wrong indentation
+ (forward-char 2) ; Point is past indentation
+ ;; Should reindent line without moving point or changing parens
+ (lisp-indent-adjust-parens)
+ (apt-check-buffer (concat ";;\n"
+ "(let ((x 10) (y (some-func 20))\n"
+ " ))")
+ "; Comment")))