The final ‘& “ seconds ago”;’ in the else part gets extra indentation. It seems
to be the parentheses that cause the problem.
The lines before this (‘& Name’, etc) are aligned with the ‘with’, should they
have ada-indent-broken instead?
procedure Problem
is
begin
if True then
raise Constraint_Error
with ("mark '"
& Name
& " passed"
& Duration'Image (Now - End_Of_Wait)
& " seconds ago");
else
raise Constraint_Error
with "mark '"
& Name
& " passed"
& Duration'Image (Now - End_Of_Wait)
& " seconds ago";
end if;
end Problem;
_______________________________________________
Emacs-ada-mode mailing list
[email protected]
http://host114.hostmonster.com/mailman/listinfo/emacs-ada-mode_stephe-leake.org
